wie kann ich mit VBA den Inhalt der letzten gefüllten Zelle in Spalte 37 ab Zeile 6 ermitteln?
Danke und Gruß
Martin
Sub test()
R = Cells(Rows.Count, 37).End(xlUp).Row
if R
msgbox Application.WorksheetFunction.Match("", Range(Cells(6, 37), Cells(Rows.Count, 37)), False) + 5
Dim l As Long
Dim r As Range
For Each r In Range(Cells(6, 37), Cells(Cells(Rows.Count, 37).End(xlUp).Row, 37))
If r.Value = "" And r.Offset(-1, 0).Value "" Then l = r.Row
Next r
MsgBox l
Ist die Liste gefiltert, wird es nochmal schwieriger ... aber davon schreibst du nichts, darum gehe ich davon aus es ist kein Filter gesetzt.