FAQ 0089: Wie finde ich die erste leere Zelle einer Spalte?

Antwort  

Es gibt mehrere Möglichkeiten, um diese Aufgabe zu erledigen.
Eine Möglichkeit zeigt folgende Funktion:

Function GetEmptyLine( _
                ByRef objWorkSheet As Excel.Worksheet, _
                ByVal lngColumn As Long) As Long
    Dim xlRange As Excel.Range
    Dim xlEmpty As Excel.Range

    '   Spalte selektieren
    Set xlRange = objWorkSheet.Columns(lngColumn)
    
    '   Nächste leere Zelle raussuchen
    Set xlEmpty = xlRange.Find(vbNullString, , _
                               Excel.XlFindLookIn.xlValues, , _
                               Excel.XlSearchOrder.xlByColumns)
    
    '   Wurde eine Zeile gefunden?
    If (xlEmpty Is Nothing) Then
        '   Nein, 0 zurückgeben
        GetEmptyLine = 0
    Else
        '   Ja, Zeilennummer zurückgeben
        GetEmptyLine = xlEmpty.Row
    End If
    
    '   Aufräumen
    Set xlEmpty = Nothing
    Set xlRange = Nothing
End Function

Listing 1: Leere Zelle suchen

 Neu Hinweis: Die erste leere Zeile ist meist auch die Zeile nach der zuletzt verwendeten. Dies muß aber nicht so sein: Sind Leerzeilen im Arbeitsblatt enthalten, liefert die gezeigte Funktion die Zeilennummer der ersten Leerzeile zurück, danach können noch Daten oder weitere Leerzeilen kommen.

 Neu Um die zuletzt verwendete Zeile zu ermitteln, hilft FAQ 0105: Letzte benutzte Zeile/Spalte im Excel-Sheet ermitteln weiter.

Ihre Meinung  

Falls Sie Fragen zu dieser FAQ haben, Ihre Erfahrung mit anderen Nutzern austauschen möchten oder auf eine Ergänzung hinweisen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.