Supportnet / Forum / Tabellenkalkulation
Leere Zelle suchen
Frage
Hallo,
ich möchte die erste leere Zelle in einer bestimmten Reihe suchen.
Kann mir jemand helfen??
MfG
Scotty
Antwort 1 von nighty
hi all :)
ein beispiel :)
von der activen zelle ausgehend wird in dessen zeile die erste zelle die leer ist angesprungen
gruss nighty
Option Explicit
Sub test()
Dim zelle As Range
Dim suche As Range
Set zelle = ActiveCell
Set suche = ActiveSheet.Range(Cells(zelle.Row, 1), Cells(zelle.Row, ActiveSheet.Range(zelle.Row & ":" & zelle.Row).End(xlUp).Row + 1)).Find("")
If Not suche Is Nothing Then
Cells(suche.Row, suche.Column).Select
End If
End Sub
ein beispiel :)
von der activen zelle ausgehend wird in dessen zeile die erste zelle die leer ist angesprungen
gruss nighty
Option Explicit
Sub test()
Dim zelle As Range
Dim suche As Range
Set zelle = ActiveCell
Set suche = ActiveSheet.Range(Cells(zelle.Row, 1), Cells(zelle.Row, ActiveSheet.Range(zelle.Row & ":" & zelle.Row).End(xlUp).Row + 1)).Find("")
If Not suche Is Nothing Then
Cells(suche.Row, suche.Column).Select
End If
End Sub
Antwort 2 von rainberg
Hallo Scotty,
folgende Formel gibt die Adresse der letzten belegten Zelle in Spalte A zurück.
Durch die Addition von1 erhältst Du somit die Adresse der nächsten freien Zelle.
=ADRESSE(VERWEIS(2;1/(A1:A65535<>"");ZEILE(A:A))+1;1)
Gruß
Rainer
folgende Formel gibt die Adresse der letzten belegten Zelle in Spalte A zurück.
Durch die Addition von1 erhältst Du somit die Adresse der nächsten freien Zelle.
=ADRESSE(VERWEIS(2;1/(A1:A65535<>"");ZEILE(A:A))+1;1)
Gruß
Rainer