"Fehler beim Compilieren: Else ohne if"
08.12.2006 16:02:47
Peter
Irgendwie habe ich die If / Else / End if
Kontrollstruktur noch nicht begriffen, sonst müsste meiner Meinung nach nachfolgender Code problemlos ablaufen.
Kann mir jemand sagen, wo das Problem liegt?
Fehlermeldung: "Fehler beim Compilieren: Else ohne if"
Ich formatiere die Spalten 4,5,11, wobei das Problem bei Spalte 5 (E) liegt
Spalte E muss letzlich ein Textformat haben und hat in der Regel 9 insgesamt 9 Stellen (inkl. vorangestellte Nullen) ausser die eingetragene Zahl habe 10 oder mehr Stellen, dass beträgt die Länge maximal 13 Stellen, wobei 9 Stellen immer angezeigt werden.
Vielen Dank
Peter
zNr = 2
Do While zNr .Cells(zNr, 4).NumberFormat = "0"
.Cells(zNr, 5).NumberFormat = "@"
If .Len(.Cells(zNr, 5)) >= 10 Then .Cells(zNr, 5) = Right("####000000000" & .Cells(zNr, 5), 13)
Else
.Cells(zNr, 5) = Right("000000000" & Cells(zNr, 5), 9)
End If
.Cells(zNr, 11).NumberFormat = "#,##0.00; -#,##0.00; "
zNr = zNr + 1
Loop