Schleife bis zur letzten Zelle

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Schleife bis zur letzten Zelle
von: Heino B
Geschrieben am: 01.10.2003 04:41:29

Hallo

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
Bild


Betrifft: AW: Schleife bis zur letzten Zelle
von: Hans W. Herber
Geschrieben am: 01.10.2003 06:31:35

Hallo Heino,

wie folgt:


Sub LastCellF()
   Dim iRow As Integer, iRowL As Integer
   iRowL = Cells(Rows.Count, 6).End(xlUp).Row
   For iRow = 2 To iRowL
      MsgBox "Adresse: " & Cells(iRow, 6).Address(False, False)
   Next iRow
End Sub


gruss hans


Bild


Betrifft: AW: Schleife bis zur letzten Zelle
von: Heino B
Geschrieben am: 01.10.2003 22:39:57

Danke Hans

Damit komme ich gut weiter.

Gruß Heino


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Schleife bis zur letzten Zelle"