Zeile 1 als Überschriftenzeile nicht mitgezählt.
Danke
Christian
https://www.herber.de/bbs/user/137855.xlsx
Sub Wert_in_30zigster_Zeile_finden()
Dim i As Long
Dim counter As Long
Dim loletzte As Long
Dim ws_quelle As String
ws_quelle = "Tabelle1"
counter = 0
With Sheets(ws_quelle)
'Letzte Zelle mit Wert in Spalte A
loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows. _
Count)
End With
For i = 2 To loletzte
If Not IsEmpty(Worksheets(ws_quelle).Cells(i, 1).Value) Then
counter = counter + 1
If counter = 30 Then
'Ergebnis in Zelle B2 ausgeben
Worksheets(ws_quelle).Cells(2, 2).Value = Worksheets(ws_quelle).Cells(i, 1).Value
Worksheets(ws_quelle).Cells(2, 3).Value = Worksheets(ws_quelle).Cells(i, 1).Address
Exit Sub
End If
End If
Next i
End Sub