ich möchte mit vba die letzte Zeile finden was ich seither mit diesem code gemacht habe
z = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
wie mache ich das wenn die letzten Zeilen ausgeblendet sind
mfg
Harald K
' AW: Problem Cells(Rows.Count) - Daniel Eisert 23.02.2007 23:53:55
Public Function LetzteZeile(intC As Integer, Optional ws As Worksheet) As Long
Dim ii As Long, arr ' as Variant
If ws Is Nothing Then Set ws = ActiveSheet
With ws.UsedRange
arr = Range(ws.Cells(1, intC), ws.Cells(.Row + .Rows.Count - 1, intC)).Value
End With
For ii = UBound(arr, 1) To 2 Step -1
If arr(ii, 1) "" Then Exit For
Next
LetzteZeile = ii
End Function
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort