Erste Zelle mit Inhalt
23.04.2008 21:41:12
Mathias
habe folgenden Code, um die letzte Zelle mit Inhalt in einer Spalte herauszufinden:
Public Sub LetzteZelle()
Dim lastrow As Long
lastrow = IIf(IsEmpty(Cells(Rows.Count, ActiveCell.Column)), Cells(Rows.Count, _ ActiveCell. _
Column).End(xlUp).Row, Rows.Count)
ActiveSheet.Cells(lastrow, ActiveCell.Column).Activate
End If
End Sub
Ich hätte nun gern das Gleiche für die erste Zelle mit Inhalt (idealerweise erst ab Zeile 2)
Wie müßte ich den Code umschreiben? Vielen Dank.
Viele Grüße
Mathias
Anzeige