Hatte ne Antwort von WernerB. vom 11.5/ 17.16
Dim i As Long, laR As Long, laN As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 1 Step -1
If Not IsEmpty(Cells(i, 1)) Then
If IsNumeric(Cells(i, 1)) Then
laN = i
Exit For
End If
End If
Next i
If laN = 0 Then
MsgBox "Bitte eien Zahl eingeben"
Else
Textbox1.text = i
End If
Funktioniert auch soweit ganz gut nur soll er in Textbox1 die letzte gefundene Zahl ausgeben, was er aber nicht macht.
Was ist verkehrt oder fehlt ??