da ich im Archiv nicht fündig wurde stelle ich hier meine Frage.
Ich suche eine VBA Lösung dir mir Spalte C durchsucht und ab Zelle C4 bis C500 alles löscht wo nicht Köln, Düsseldorf, Mainz drinsteht.
Vielen Dank und ein schönes Wochenende.
Hier zeige ich dir, wie du in Excel alle Zeilen löschen kannst, die nicht bestimmte Werte enthalten. In diesem Beispiel verwenden wir die Power Query-Funktion, um effizient zu arbeiten.
Daten > Ab Tabelle/Bereich, um Power Query zu starten.Textfilter > Enthält....Schließen & Laden, um die gefilterten Daten zurück in Excel zu bringen. Alle Zeilen, die nicht die angegebenen Werte enthalten, sind nun gelöscht.Überprüfen > Blattschutz aufheben.Neben Power Query gibt es auch einfache VBA-Möglichkeiten, um Zeilen zu löschen. Hier ist ein Beispielcode, den du anpassen kannst:
Sub ZeilenLöschen()
Dim i As Long
For i = Cells(Rows.Count, "C").End(xlUp).Row To 1 Step -1
If Cells(i, "C").Value <> "Köln" And Cells(i, "C").Value <> "Düsseldorf" And Cells(i, "C").Value <> "Mainz" Then
Rows(i).Delete
End If
Next i
End Sub
Füge diesen Code in ein neues Modul ein und führe ihn aus, um alle Zeilen zu löschen, die nicht die gewünschten Werte enthalten.
Wenn du beispielsweise eine Liste von Städten hast und nur die Städte „Köln“, „Düsseldorf“ und „Mainz“ behalten möchtest, kannst du:
1. Wie kann ich mehrere Bedingungen in Power Query setzen?
Du kannst mehrere Bedingungen in Power Query setzen, indem du die Filteroptionen kombinierst. Wähle Erweiterte Filter und füge die gewünschten Bedingungen hinzu.
2. Was kann ich tun, wenn sich eine Excel-Spalte nicht löschen lässt?
Überprüfe, ob die Spalte durch eine Tabelle gesperrt ist. Du kannst die Tabelle in einen normalen Bereich umwandeln, um die Spalte zu löschen.
3. Gibt es eine Möglichkeit, alle Zeilen auf einmal zu löschen?
Ja, du kannst dies mit Power Query oder einem VBA-Skript tun, das alle Zeilen, die nicht den gewünschten Text enthalten, auf einmal löscht.