860to864: For 1 To letzte beschrieben Zeile

Forumthread: 860to864: For 1 To letzte beschrieben Zeile
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: For 1 To letzte beschrieben Zeile

For 1 To letzte beschrieben Zeile

03.04.2007 20:57:00

Christian

Hallo habe ein kleines Problem was ich sicherlich auch im Archiv gefunden hätte wenn ich wüßte nach welchem Schlagwort ich suchen muss.
Habe eine For-Schleife die von 1 bis zur letzten beschriebenen Zeile laufen soll.
Kann mir jemand den Code dafür gegeben.
Danke
Gruß
Christian

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: For 1 To letzte beschrieben Zeile

03.04.2007 21:24:03

fcs
AW: For 1 To letzte beschrieben Zeile

03.04.2007 21:25:00

Armin

AW: For 1 To letzte beschrieben Zeile

03.04.2007 21:24:03

fcs

Hallo Christian,
etwa so:


Sub test()
Dim wks As Worksheet, Zeile As Long
Set wks = ActiveSheet 'oder auch = Worksheets("Tabelle1")
With wks
For Zeile = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
'Code
MsgBox "Wert Zeile: " & Zeile & "  | Spalte 2:  " & .Cells(Zeile, 2).Value
Next Zeile
End With
End Sub

Gruß
Farnz

AW: For 1 To letzte beschrieben Zeile

03.04.2007 21:25:00

Armin

Hi Cristian,
Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Gruß Armin