Das Archiv des Excel-Forums

Schleife bis zur letzten Zelle

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

Excel-Beispiele zum Thema " Schleife bis zur letzten Zelle"

In einer Schleife auf Elemente einer UserForm zugreifen download CheckBoxes in UserForms in eine Schleife einbinden download
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download UserForm-Optionsfelder über eine Schleife zurücksetzen download
Formel bis zur letzten Zeile der Nebenspalte kopieren download Den jeweils letzten Wert einer Zahlenreihe als Multiplikator download
Laufzeit von Windows seit letzten Start ermitteln download Mit ShortCut STRG+END zur tatsächlich letzten Zelle download
Bestimmung der ersten und letzten Zelle eines Filters download Alle Formate jenseits der letzten benutzten Zelle löschen download
Entfernen der letzten beiden Zeichen in Listenelementen download Ermittlung der jeweils letzten 5 Datensätze download