Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema MsgBox | |
|---|---|
 Screenshot zu MsgBox |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
Schleife bis zur letzten Zelle
- Schleife bis zur letzten Zelle von Heino B vom 01.10.2003 04:41:29
- AW: Schleife bis zur letzten Zelle - von Hans W. Herber am 01.10.2003 06:31:35
- AW: Schleife bis zur letzten Zelle - von Heino B am 01.10.2003 22:39:57
- AW: Schleife bis zur letzten Zelle - von Heino B am 01.10.2003 22:39:57
- AW: Schleife bis zur letzten Zelle - von Hans W. Herber am 01.10.2003 06:31:35
 |
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
 |
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
| |
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
| |