Vba: so löschen sie den inhalt, wenn die zelle einen bestimmten wert enthält

Sie können die folgende grundlegende Syntax verwenden, um den Inhalt jeder Zelle in einem Excel-Arbeitsblatt zu löschen, der einem bestimmten Wert entspricht:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Dieses spezielle Makro löscht den Inhalt jeder Zelle im Bereich A2:A11 , der „Mavs“ entspricht.

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

Beispiel: Verwenden Sie VBA, um den Inhalt zu löschen, wenn die Zelle einen bestimmten Wert enthält

Nehmen wir an, wir haben eine Excel-Tabelle mit Informationen über verschiedene Basketballspieler:

Nehmen wir an, wir möchten den Inhalt jeder Zelle in der Spalte „ Team “ löschen, der „Mavs“ entspricht.

Dazu können wir das folgende Makro erstellen:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Sobald dieses Makro ausgeführt wird, werden alle Zellen mit dem Wert „Mavs“ in der Spalte „Team“ gelöscht:

Wenn Sie stattdessen alle Zellen in jeder Zeile mit dem Wert „Mavs“ in der Spalte „Team“ löschen möchten, können Sie die folgende Syntax verwenden:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.EntireRow.ClearContents
    Else
    End If
Next cell

End Sub

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

Beachten Sie, dass alle Zellen in jeder Zeile, die „Mavs“ in der Spalte „Team“ enthalten, gelöscht wurden.

Hinweis : Die vollständige Dokumentation der ClearContents- Methode in VBA finden Sie hier .

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So finden Sie die zuletzt verwendete Zeile
VBA: So finden Sie die zuletzt verwendete Spalte
VBA: So zeigen Sie alle Blätter an