Problem mit Schleife
10.11.2006 09:57:41
werner
ich brauche eure Hilfe. Zuerst einmal muß ich "VBA gut" relativieren - bin über VBA nur mit Makrorecorder zwar deutlich hinaus, aber z.B. mein Verständnis für Schleifen ist doch noch sehr ausbaufähig.
Ich möchte in meiner Tabelle in jeder zweiten Spalte nach Leerzellen suchen, und den Inhalt der Zelle links davon löschen (steht zwar nicht immer was drin, aber macht ja nichts, glaube ich?).
Der Code bringt aber immer eine Fehlermeldung ("next ohne For"):
Sub test11()
Dim zelle As Range
Dim i As Integer
Dim lngz As Long
Dim s As Long
For i = 3 To lngz
For s = 2 To 14 Step 2
lngz = Cells(Rows.Count, 1).End(xlUp).Row
For Each zelle In Range(Cells(3, s), Cells(lngz, 14))
If zelle(Cells(i, s)).Value = "" Then
Range(Cells(i, s - 1)).ClearContents
Next s
Next i
Next zelle
End Sub
Inzwischen dröhnt mir der Kopf mehr von meinen vergeblichen Versuchen als von meiner Grippe - wäre für Hilfe (und ggf. etwas Nachhilfe) sehr dankbar.
Danke im voraus und Grüße aus München
Werner