Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleife bis zur letzten Zelle

Schleife bis zur letzten Zelle
01.10.2003 04:41:29
Heino B
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife bis zur letzten Zelle
01.10.2003 06:31:35
Hans W. Herber
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
AW: Schleife bis zur letzten Zelle
01.10.2003 22:39:57
Heino B
Danke Hans

Damit komme ich gut weiter.

Gruß Heino

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige