FileCountProblem
18.08.2004 13:41:55
Klamsi
Wie mal ne Frage ;-)
Ich wollte ein Programm schreiben das jede Zelle von B2 bis B"unbekannt" auf ihren Inhalt überprüft.
Wenn B2 irgend einen Wert enthält, soll B3 auf einen Wert geprüft werden. So lange, bis irgendwann in einer B?-Zelle nichts mehr drin steht.
Jedes mal wenn in einer Zelle etwas enthalten ist, soll ein Counter um 1 höher gesetzt werden.
Dannach soll jede Zelle ab A2 bis A"Counter" Nummeriert werden.
Ich habe folgendes in meine Maschiene getabst, aber irgendwas funzt nicht. Wisst ihr wo der Fehler liegt?
Sub FileCount()
Dim Row As Integer 'Zählt nach jeder Schleife die Reihe um 1 höher
Dim Count As Integer 'Zählt mit, wie viele Zellen in Spalte B Werte enthalten
Dim Num As Integer 'Nummeriert jede Zelle
Row = 2
Num = 1
Count = 0
Do Until Range("B" & Row) > True
Count = Count + 1
Row = Row + 1
Loop
Row = 2
Do
Range("A" & Row).Value = Num
Num = Num + 1
Row = Row + 1
Loop While Row < Count + 1
End Sub