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
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen