Mehrere Wörter suchen und Zeile löschen in Excel
Schritt-für-Schritt-Anleitung
Um in Excel mehrere Wörter zu suchen und die entsprechenden Zeilen zu löschen, kannst Du ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung, wie Du das machst:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen und wähle Modul, um ein neues Modul zu erstellen.
- Kopiere den folgenden Code in das Modul:
Sub Unnoetige_Zeilen_loeschen()
Dim i As Long
Dim letzteZeile As Long
Dim suchBereich As Range
Dim gefunden As Range
Dim suchWert As Variant
Dim suchWerte As Variant
suchWerte = Array("256", "264", "274") 'hier kommen deine Suchwerte rein
With ThisWorkbook.Sheets("Tabelle1")
letzteZeile = .Range("G" & Rows.Count).End(xlUp).Row
Set suchBereich = .Range("G1:G" & letzteZeile)
For Each suchWert In suchWerte
Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
If Not gefunden Is Nothing Then
Do
gefunden.Activate
ActiveCell.EntireRow.Delete shift:=xlUp
Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
Loop While Not gefunden Is Nothing
End If
Next suchWert
End With
End Sub
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Drücke
ALT + F8, wähle das Makro Unnoetige_Zeilen_loeschen aus und klicke auf Ausführen.
Das Makro wird nun alle Zeilen löschen, die eines der angegebenen Wörter enthalten.
Häufige Fehler und Lösungen
-
Fehler beim Array: Wenn Du beim Ausführen des Makros einen Fehler erhältst, stelle sicher, dass die Wörter im Array korrekt eingegeben sind. Achte darauf, dass Du die Werte mit Kommas und nicht mit Semikolons trennst.
-
Keine Zeilen gelöscht: Wenn das Makro keine Zeilen löscht, überprüfe, ob die Spalte G tatsächlich die zu suchenden Werte enthält. Möglicherweise sind die Werte als Zahlen und nicht als Text formatiert.
Alternative Methoden
Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch die Funktion "Suchen und Ersetzen" in Excel verwenden:
- Markiere die Spalte G.
- Drücke
STRG + H, um das Dialogfeld "Suchen und Ersetzen" zu öffnen.
- Gib das Wort ein, das Du suchen möchtest, und lasse das Ersetzen-Feld leer.
- Klicke auf "Alle ersetzen", um alle Vorkommen des Worts zu entfernen.
- Wiederhole dies für alle Wörter, die Du entfernen möchtest.
Diese Methode ist einfacher, kann jedoch mehr Zeit in Anspruch nehmen, wenn Du viele Wörter hast.
Praktische Beispiele
Nehmen wir an, Du hast in Spalte G die folgenden Werte:
256
123
264
456
274
789
Nach dem Ausführen des Makros wird die Tabelle wie folgt aussehen:
123
456
789
Alle Zeilen mit den Wörtern 256, 264 und 274 wurden erfolgreich gelöscht.
Tipps für Profis
- Backup erstellen: Erstelle immer ein Backup Deiner Excel-Datei, bevor Du Makros ausführst, um Datenverlust zu vermeiden.
- Makros optimieren: Du kannst das Makro optimieren, indem Du die Bildschirmaktualisierung deaktivierst, um die Ausführung zu beschleunigen:
Application.ScreenUpdating = False
' Dein Code hier
Application.ScreenUpdating = True
- Zellen formatieren: Stelle sicher, dass die Zellen in Spalte G korrekt formatiert sind, um Probleme bei der Suche und dem Löschen zu vermeiden.
FAQ: Häufige Fragen
1. Wie kann ich das Makro auf andere Spalten anwenden?
Du kannst die Spaltenbezeichnung in der Zeile Set suchBereich = .Range("G1:G" & letzteZeile) ändern, um eine andere Spalte auszuwählen.
2. Was mache ich, wenn das Makro nicht funktioniert?
Überprüfe die Eingaben im Array und stelle sicher, dass die Spalte G die richtigen Werte enthält. Wenn Du weiterhin Probleme hast, versuche, den Code Schritt für Schritt zu debuggen.