Direkt zum Inhalt

Erste leere Zelle einer Spalte finden [Excel]

Gespeichert von Erik Wegner am/um

Beschreibung

Das Makro erwartet die Angabe eines Arbeitsblatts, einer Spalte und den zu durchsuchenden Bereich von/bis. Der Rückgabewert gibt die Zeile an, an der sich die erste leere Zelle befindet.

Quellcode

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function durchlaufeSpalte(blatt$, spalte$, von, bis)
    Dim z As Range
    f = -1 'Zeile, die keinen Wert enthält
    If blatt$ = "" Then
        Set z = Range(spalte$ + Trim$(Str$(von)))
    Else
        Set z = Worksheets(blatt$).Range(spalte$ + Trim$(Str$(von)))
    End If
    y = von 'Startzeile der Suche
    While (f < 0 And y <= bis)
        If z.Value = "" Then f = y
        Set z = z.Offset(1)
        y = y + 1
    Wend
    durchlaufeSpalte = f
End Function