Hallo Profis!
Sorry für die Anfängerfrage, aber ich weiß nicht mehr, was Excel von mir will. Bei Ausführung des folgendes Codes kriege ich immer die Fehlermeldung "If-Block ohne End If" in Zeile 3 und er markiert mir das Wort "next".
Kann mir vielleicht jemand sagen, was ich anders machen muss?!?
Viele Grüße
Russi
Hier der Code:
For Each Zelle In Selection
If Len(Zelle) = 13 And InStr(3, Zelle, " ", 1) = 3 And InStr(6, Zelle, " ", 1) = 6 And InStr(9, Zelle, " ", 1) = 9 Then
Next Zelle
ElseIf Len(Zelle) = 8 Then
AgtNrNeu = Left(Zelle, 2) & " " & Mid(Zelle, 3, 2) & " 00 " & Right(Zelle, 4)
ElseIf Len(Zelle) = 10 Then
AgtNrNeu = Left(Zelle, 2) & " " & Mid(Zelle, 3, 2) & " " & Mid(Zelle, 5, 2) & " " & Right(Zelle, 4)
Else: Fehler = Fehler + 1
End If
Zelle.Value = AgtNrNeu
Next Zelle