Office: (Office 2019) Zeilen mit bestimmten Inhalten löschen lassen

Hallo,

gibt es eine Möglichkeit ganze Zeilen die in einer bestimmten Zelle einen bestimmten Eintrag haben automatisch löschen zu lassen?
Manuell über Autofilter und dann die Zeilen löschen finde ich etwas umständlich.

Danke

:)

 

Moin,
ja die gibt es. Beispielsweise mit VBA/Makro oder mit Power Query.

 

Von Power Query habe ich schon gehört, finde ich aber in Excel 2019 nicht!?

 

Hallo

PQ findet man in Excel 2019 so
Excel starten dann unter Daten ganz links auswählen was du machen möchtest.

 

Power-Query Editor starten *biggrin.gif*

 

Na ja

Daten | Abrufen und transformieren
Von Tabelle/Bereich, um die Daten in den Power Query-Editor zu importieren
Nach Bedarf filtern
Schließen & laden (in…)

Und wenn sich die Quell-Daten geändert haben, einfach die Ergebnis-Tabelle Aktualisieren. Kannst ja mal hier schauen…

 

Ist auch mit Makro möglich. Füge untenstehndens Makro in ein Modul:

Markiere die zu untersuchenden Zellen und starte das Makro.

Code:

Jede Zeile, die Zellen mit "Osterhase" als Zellinhalt hat, wird entfernt und alle nachfolgenden Zeilen rücken hinauf.

Soll nur der Inhalt gelöscht werden, also ohne Nachrücken, ersetze .Delete durch .Clear

LGB

 

Jede Zeile, die Zellen mit "Osterhase" als Zellinhalt hat, wird entfernt und alle nachfolgenden Zeilen rücken hinauf.

Soll nur der Inhalt gelöscht werden, also ohne Nachrücken, ersetze .Delete durch .Clear

LGB

Hallo Barbara,

vielen Dank für deine Hilfe, ich habe noch zwei Fragen:

1.) Berücksichtigt er nur Zellen in denen ausschließlich "Osterhase" vorkommt oder werden auch solche berücksichtigt in denen "Osterhase Kostüm" oder "Kostüm Osterhase" enthalten ist?

2.) Wenn ich zusätzlich Zeilen mit Zellinhalt "Nikolaus" löschen möchte, kann ich die Zeile "If rZelle = "Osterhase" Then Rows(rZelle.Row).Delete " duplizieren und einfach das Osterhase durch den Nikolaus ersetzen?

Besten Dank
Jessica

 

Hi Jessica,

Antwort 1:
Nur Osterhase

Antwort 2:
Nein. Kann Fehler verursachen.


Nimm besser dieses Makro, das ich für Dich schnell geschrieben habe:
Code:

Damit wird alles berücksichtigt, was "Oster" oder "Nikolaus" oder "Bleistift" beinhaltet, egal ob am Anfang Mitte oder Ende.

Welche Suchen Du miot "Like" machen kannst, google nach "vba like operator" oder hier (MS Dev. Center) (unten).

LGB

 

Hallo Barbara,
ich hoffe Du kannst mir weiterhelfen. Ich habe den von Dir geposteten Code an meine Bedürfnisse angepasst.

Sub ZeileLöschen()

Columns("A:A").Select
Range("A1032").Activate

Dim rZelle As Range
Dim i As Long

For i = Selection.Count To 1 Step -1
If Selection(i) Like "*Handcreme*" Or _
Selection(i) Like "Haftcreme*" Or _
Selection(i) Like "*Stokoderm*" Then _
Rows(Selection(i).Row).Delete
Next i

End Sub
Leider tut sich gar nichts. Kannst Du mir sagen wo der Fehler liegt?

Danke und schönes WE
Alexander

 

Hallo Alexander,

in welcher Spalte stehen denn die Begriffe, die das Löschen auslösen sollen?

 

In Spalte B, ich probier´s nochmal mit der entsprechenden Auswahl, im Code steht ja A. Manchmal sieht man den Wald vor lauter Bäumen nicht.
Danke

 

Das war der Fehler, jetzt funktioniert es.

Schönes WE
Alexander

 

Hi,

auch wenn es nun funktioniert: Verzichte auf .Select

Code:

Sub ZeileLöschen()
Dim rZelle As Range
Dim i As Long

For i = Range("B:B").Count To 1 Step -1
    If Cells(i, "B") Like "*Handcreme*" Or _
       Cells(i, "B") Like "Haftcreme*" Or _
       Cells(i, "B") Like "*Stokoderm*" Then _
       Rows(i).Delete
Next i

End Sub

Wobei du hier immer noch durch alle Zeilen (>1 Mio!!!) gehst. Daher besser so:

Code:

Sub ZeileLöschen()
Dim Bereich As Range
Dim i As Long
Set Bereich = Intersect(Range("B:B"), ActiveSheet.UsedRange)
With Bereich
    For i = .Count To 1 Step -1
        If .Cells(i) Like "*Handcreme*" Or _
           .Cells(i) Like "Haftcreme*" Or _
           .Cells(i) Like "*Stokoderm*" Then _
           .Cells(i).EntireRow.Delete
Next i
End Sub

Das sollte schon deutlich schneller sein. Noch schneller wird es, wenn man alles auf einmal löscht:

Code:

Sub ZeileLöschen()
Dim Bereich As Range
Dim Zelle As Range
Dim WegMit As Range
Set Bereich = Intersect(Range("B:B"), ActiveSheet.UsedRange)
For Each Zelle In Bereich
    If Zelle Like "*Handcreme*" Or Zelle Like "Haftcreme*" Or Zelle Like "*Stokoderm*" Then
        If WegMit Is Nothing Then
            Set WegMit = Zelle
        Else
            Set WegMit = Union(WegMit, Zelle)
        End If
    End If
Next Zelle
If Not WegMit Is Nothing Then WegMit.EntireRow.Delete
End Sub

 

Prima, danke dir. Ich habe noch etwas, was man sicher optimieren kann. Ich benutze das Select Objekt um nach Ausdrücken zu suchen, bzw. nach Teilen von Ausdrücken in Zellen, um diese durch einen anderen zu ersetzen.

Columns("A:A").Select
Range("A1").Activate

Selection.Replace What:="D-Mannose", Replacement:="D_Mannose", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

Selection.Replace What:="*Willebrand*", Replacement:="von_Willebrand", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

Insgesamt suche ich nach ca. 40 Ausdrücken. Ich glaube, sowas kann man auch mit der array Funktion machen, nur halt nicht ich .
Kannst Du dir das mal anschauen? Für Optimierungen bin ich immer dankbar.

Vielen, vielen Dank und schönes Restwochenende.
Alexander