Wie löscht man mithilfe von VBA-Code den Inhalt eines Kombinationsfelds in Excel?
Normalerweise löschen Sie die Inhalte eines Kombinationsfelds, indem Sie die zugehörigen Listendaten im Eingabebereich entfernen. Doch wie geht man vor, wenn sämtliche Kombinationsfelder in einem Excel-Arbeitsblatt auf einmal geleert werden sollen? Dieser Artikel stellt zwei VBA-Codes bereit, mit denen Sie nicht nur ein einzelnes Kombinationsfeld, sondern alle Kombinationsfelder in einem Arbeitsblatt gleichzeitig bereinigen können.
Inhalte eines Kombinationsfelds mühelos per VBA-Code löschen
Inhalte eines Kombinationsfelds mühelos per VBA-Code löschen
Die beiden folgenden VBA-Codes ermöglichen es Ihnen, die Inhalte entweder eines einzelnen oder aller Kombinationsfelder im aktiven Arbeitsblatt zu leeren. Gehen Sie dazu wie folgt vor:
1. Drücken Sie im Arbeitsblatt, in dem Sie die Inhalte eines Kombinationsfelds löschen möchten, gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul. Kopieren Sie anschließend den unten stehenden VBA-Code in das Code-Fenster.
VBA 1: Inhalte eines Kombinationsfelds im Arbeitsblatt löschen
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End SubHinweis: Im Code steht „Drop Down 2“ für den Namen des Kombinationsfelds, dessen Inhalte gelöscht werden sollen. Ersetzen Sie diesen bitte durch Ihren eigenen Namen.
VBA 2: Inhalte aller Kombinationsfelder im aktiven Arbeitsblatt löschen
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche „Ausführen“, um den Code auszuführen.
Anschließend sehen Sie, dass die Inhalte im angegebenen Kombinationsfeld bzw. in allen Kombinationsfeldern des aktiven Arbeitsblatts gelöscht wurden – wie im folgenden Screenshot veranschaulicht:
Hinweis: Die VBA-Codes lassen sich sowohl auf Kombinationsfelder (Formularsteuerelement) als auch auf Kombinationsfelder (ActiveX-Steuerelement) anwenden.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Verwandte Artikel:
- Wie löscht man in Excel gleichzeitig Inhalte und Formatierung aus Zellen?
- Wie löscht man den Inhalt eines benannten Bereichs in Excel?
- Wie entfernt man eingeschränkte Werte aus Zellen in Excel?
- Wie löscht man festgelegte Zellinhalte, sobald sich der Wert einer anderen Zelle in Excel ändert?
- Wie löscht man beim Öffnen und Beenden einer Excel-Arbeitsmappe festgelegte Zellinhalte?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins