Hallo beisammen,
folgender Code läuft reibungslos durch:
Dim X
Dim B As Boolean 'Prüf-Variable für Schleifendurchlauf
X = 11
B = False
Do Until Sheets("Abrechnung").Cells(X, 3) = "End Of File"
If IsNumeric(Sheets("Abrechnung").Cells(X, 3)) Then
If Len(Sheets("Abrechnung").Cells(X, 3)) = 3 Then
B = True
With Sheets("RG")
.Visible = True
....
Wenn ich aber die Bedingung von 3-stellig auf 10-stellig erweitern möchte:
If Len(Sheets("Abrechnung").Cells(X, 3)) = 3 or
If Len(Sheets("Abrechnung").Cells(X, 3)) = 10 Then
bekomme ich einen Fehler beim Kompilieren: "Erwartet: Ausdruck". Wie ist denn die richtige Syntax?
Vielen Dank für Eure Hilfe im voraus.
Gruß
Torsten