Vba: so verwenden sie „wenn nicht leer“

Sie können Not IsEmpty in VBA verwenden, um zu überprüfen, ob eine Zelle nicht leer ist.

Hier ist ein Beispiel dafür, wie Sie diese Syntax in einem Makro verwenden können:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

In diesem speziellen Beispiel wird überprüft, ob jede Zelle im Bereich A2:A13 nicht leer ist, und dann wird für jede übereinstimmende Zelle im Bereich B2:B13 „Zelle ist nicht leer“ oder „Zelle ist leer“ ausgegeben.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Verwendung von „Wenn nicht leer“ in VBA

Angenommen, wir haben die folgende Liste mit Namen von Basketballmannschaften in Excel:

Angenommen, wir möchten prüfen, ob jede Zelle im Bereich A2:A13 nicht leer ist, und dann die Ergebnisse in den entsprechenden Zellen im Bereich B2:B8 anzeigen.

Dazu können wir das folgende Makro erstellen:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Spalte B sagt uns, ob jede der entsprechenden Zellen in Spalte A leer ist oder nicht.

Sie können auch das folgende Makro verwenden, um einfach den Teamnamen selbst in Spalte B zurückzugeben, wenn der Wert in Spalte A nicht leer ist:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = Range(" A " & i).Value
        Else
        Result = " Empty "
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Spalte B gibt jetzt den Teamnamen in Spalte A zurück, wenn die Zelle nicht leer ist.

Hinweis : Die vollständige Dokumentation zur VBA-Methode IsEmpty finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So zählen Sie das Vorkommen von Zeichen in einer Zeichenfolge
VBA: So überprüfen Sie, ob eine Zeichenfolge eine andere Zeichenfolge enthält
VBA: eine Formel für „Wenn“ die Zelle enthält“