Wie kann ich die letzte Zeile finden, die Daten in einer bestimmten Spalte enthält?

Question

Wie kann ich die letzte Zeile finden, die Daten in einer bestimmten Spalte und auf einem bestimmten Blatt enthält?

Answer 1

Function LastRow(rng As Range) As Long
    Dim iRowN As Long
    Dim iRowI As Long
    Dim iColN As Integer
    Dim iColI As Integer
    iRowN = 0
    iColN = rng.Columns.count
    For iColI = 1 To iColN
        iRowI = rng.Columns(iColI).Offset(65536 - rng.Row, 0).End(xlUp).Row
        If iRowI > iRowN Then iRowN = iRowI
    Next
    LastRow = iRowN
End Function