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

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
Kategorien