Hier habe ich eine Funktion geschrieben, die mir den letzten Eintrag aus einer Spalte wiedergibt. Leerwerte werden nicht berücksichtigt.
Wenn ich das Gleiche, bezogen auf eine Zeile möchte, wie muss dann die Function geschrieben sein. Kann mir wer helfen. Vielen Dank!! Function Endwert_Spalte(Spalte As Range) Dim s As Integer Dim z As Integer s = Spalte.Column z = Cells(65536, s).End(xlUp).Row 10 If Cells(z, s).Value = "" And z > 1 Then z = z - 1 GoTo 10 End If If Cells(z, s).Value = "" Then Endwert_Spalte = "" Else Endwert_Spalte = Cells(z, s).Value End If End Function