Wie löscht man in Excel alle Inhalte außer dem ausgewählten Bereich?
In Excel können Sie einen Bereich schnell und direkt löschen – aber haben Sie schon einmal versucht, alle anderen Zellinhalte außer dem ausgewählten Bereich zu entfernen? In diesem Artikel zeige ich Ihnen einige praktische Tricks, mit denen Sie diese Aufgabe in Excel schnell und einfach erledigen können.
Alle Inhalte außer Bereich auswählen mithilfe von VBA-Code löschen
Alle Inhalte außer Bereich auswählen mithilfe von Bereichshilfe aus Kutools für Excel löschen
Alle Inhalte außer Bereich auswählen mithilfe von Bereiche kopieren aus Kutools für Excel löschen
Alle Inhalte außer Bereich auswählen mithilfe von VBA-Code löschen
Es gibt keine direkte Möglichkeit, alle nicht ausgewählten Zellwerte auf einmal zu löschen – doch mit dem folgenden VBA-Code gelingt es Ihnen mühelos. So geht’s:
1. Halten Sie die Strg-Taste gedrückt, um die Zellen auszuwählen, die Sie behalten möchten.
2. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
3. Klicken Sie im Dialogfenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul, und kopieren Sie anschließend den unten stehenden VBA-Code in das Modul-Fenster.
VBA-Code: Alle Zellwerte außer Bereich auswählen löschen
Sub ClearAllExceptSelection()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In ActiveSheet.UsedRange
If Intersect(xCell, xRg) Is Nothing Then
xCell.Clear
End If
Next
Application.ScreenUpdating = xUpdate
End Sub
4. Drücken Sie nun die Taste F5, um den Code auszuführen. Es erscheint ein Eingabefeld, das Sie auffordert, den Zellbereich auszuwählen, den Sie behalten möchten. Falls Sie die Bereiche bereits in Schritt 1 ausgewählt haben, klicken Sie auf OK. Andernfalls wählen Sie im Eingabefeld die gewünschten Zellen aus und trennen mehrere Bereiche durch Kommas. Klicken Sie anschließend auf die Schaltfläche OK, siehe Screenshot:
5. Nachdem Sie auf OK geklickt haben, wurden alle anderen Zellwerte gelöscht, sodass nur noch „Bereich auswählen“ verbleibt. Siehe Screenshot:
Alle Inhalte außer Bereich auswählen mithilfe von Bereichshilfe aus Kutools für Excel löschen
Wenn Sie Kutools für Excel installiert haben, können Sie mit der Funktion Auswahl umkehren des Tools Bereichshilfe Ihre Auswahl blitzschnell umkehren und anschließend alle umgekehrt ausgewählten Bereiche auf einen Schlag löschen.
Nach der Installation von Kutools für Excelgehen Sie bitte wie folgt vor:
1. Wählen Sie die Zellbereiche aus, die Sie behalten möchten.
2. Klicken Sie anschließend auf Kutools > Auswählen > Bereichshilfe, siehe Screenshot:
3. Aktivieren Sie im Dialogfeld Bereichshilfe die Option Auswahl umkehren, siehe Screenshot:
4. Ziehen Sie anschließend mit der Maus über den Bereich, dessen Auswahl umgekehrt werden soll. Sobald Sie die Maustaste loslassen, werden die zuvor ausgewählten Zellen abgewählt und gleichzeitig die zuvor nicht ausgewählten Zellen markiert. Siehe Screenshot:
5. Schließen Sie dann das Dialogfeld und drücken Sie die Entf-Taste, um alle ausgewählten Bereiche auf einmal zu löschen. Es verbleiben nun ausschließlich Ihre gewünschten Zellen. Siehe Screenshot:
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Alle Inhalte außer Bereich auswählen mithilfe von Bereichshilfe aus Kutools für Excel löschen
Ein weiteres Hilfsprogramm – Bereiche kopieren aus Kutools für Excel – kann Ihnen ebenfalls bei dieser Aufgabe helfen. Wählen Sie einfach Ihren Bereich aus, kopieren Sie ihn in ein neues Arbeitsblatt und löschen Sie anschließend das ursprüngliche Arbeitsblatt.
Nach der Installation von Kutools für Excelführen Sie bitte die folgenden Schritte aus:
1. Halten Sie die Strg-Taste gedrückt, um die Zellbereiche auszuwählen, die Sie behalten möchten.
2. Klicken Sie anschließend auf Kutools > Bereiche kopieren, siehe Screenshot:
3. Aktivieren Sie im Dialogfeld Mehrere Bereiche kopieren die Option Alle unter Inhalte einfügen. Aktivieren Sie außerdem Zeilenhöhe einschließen und Spaltenbreite einschließen, wenn Sie die gewünschte Zeilenhöhe und Spaltenbreite beibehalten möchten. Siehe Screenshot:
4. Klicken Sie anschließend auf die Schaltfläche Ok. Es erscheint ein weiteres Eingabefeld, in dem Sie aufgefordert werden, eine Zelle auszuwählen, in die die kopierten Zellen eingefügt werden sollen. Wählen Sie bitte eine Zelle in einem neuen Arbeitsblatt aus. Siehe Screenshot:
5. Klicken Sie anschließend auf OK. Nun wurde ausschließlich Ihr ausgewählter Bereich in das neue Arbeitsblatt eingefügt, und Sie können das ursprüngliche Arbeitsblatt bei Bedarf löschen.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Demo: Alle Inhalte außer Bereich auswählen mithilfe von Kutools für Excel löschen
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