Schleife bis zur letzten Zelle
01.10.2003 04:41:29
Heino B
Ich habe folgendes Makro
~begin
Sub bestelltloeschen()
Sheets("Artikeldaten").Activate
Dim RaZelle As Range
For Each RaZelle In Range("f2:f100")
If RaZelle <= RaZelle.Columns(2) Then
RaZelle.Columns(4) = ""
End If
Next RaZelle
Sheets("Bestellen").Activate
End Sub
~end
Die Schleife bearbeitet nun die Zellen von F2 bis F100.
Ich möchte aber gerne das statt der F100 immer bis zur letzten Zelle in Spalte F
die belegt ist gearbeitet wird.
Wie müsste ich das Makro ändern um diese Funktion zu haben ?
Gruß Heino
Anzeige