Hallo Community...
Ich habe folgenden Code und er sagt mir, Next ohne for! --> bei "next z" bleibt er stehen...
Ich verstehe meinen synthax fehler gerade nicht... kann mir jemand sagen, was ich da falsch habe??
mein code:
Vielen Dank!
VG Tim
Ich habe folgenden Code und er sagt mir, Next ohne for! --> bei "next z" bleibt er stehen...
Ich verstehe meinen synthax fehler gerade nicht... kann mir jemand sagen, was ich da falsch habe??
mein code:
Visual Basic-Quellcode
- Sub Prüfe_und_Ersetze_NV()
- 'Prozedur, die alle Zellen, die ein #NV als Wert beinhalten erkennt und den Wert durch "" ersetzt!
- Dim z As Range, Letzte As Range
- Dim a As Integer
- Dim x As Range, Letzte2 As Range
- Set Letzte = Cells(Rows.Count, 36).End(xlUp)
- For Each z In Range(Cells(1, 1), Letzte)
- If IsError(z) Then
- a = a + 1
- Next z
- If MsgBox("Es wurden " & a & " Einträge mit dem Wert #NV, gefunden! Sollen diese Werte durch leere Einträge ersetzt werden??", vbYesNo) = vbYes Then
- Set Letzte2 = Cells(Rows.Count, 36).End(xlUp)
- For Each x In Range(Cells(1, 1), Letzte2)
- If IsError(x) Then If x = CVErr(xlErrNA) Then x = ""
- Next x
- ElseIf vbNo Then
- Exit Sub
- End If
- End Sub
Vielen Dank!
VG Tim