Schleifenproblem ?
09.02.2007 12:11:18
Volker
ich habe mit dem untenstehenden Code ein Problem.
Ich möchte in einer Tabelle die Spalte H mittels
Cells(2, 8).Value = CDate(Cells(2, 8).Value) zu einem Datum umformatieren.
Wenn ich diesen Code in Worksheet_Activate() für jede Zelle hineinschreibe
funktioniert er auch.
Nun versuchte ich die ganze Sache automatisch ablaufen zu lassen mittels des
untenstehenden Makros. Funktioniert auch allerdings nur einmal.
Die Schleife läuft nicht durch.
Wenn allerdings in Spalte H kein Wert steht, läuft sich das Makro tot.
Kann mir jemand sagen wo ich den Fehler gemacht habe?
Sub datum_ändern()
Dim i As Integer
Do
For i = 2 To 50 ' Zeilenanzahl
If Sheets("Tabelle1").Cells(i, 8) <> "" Then
Cells(i, 8).Value = CDate(Cells(i, 8).Value)
Exit For
End If
Next i
Loop While Sheets("Tabelle1").Cells(i, 8).Value = ""
End Sub
Danke
Gruß
Volker