Office: Markieren wenn bestimmter Zellinhalt

Hallo,
könnte mir bitte jemand bei einem (sicherlich relativ simplen) Excel-VBA-Makro unterstützen?
Ich möchte in einer Tabelle, die ich vorher sortiert habe, alle Zeilen die einen bestimmten Text in der Zelle stehen haben, löschen.
Konkret: Wenn in der Spalte C einer Zeile der Text "Storno" drinsteht, soll die ganze Zeile rausfliegen.

Danke!

LG,
Anja

:)

 

Hi Anja!

Probiers mal damit:

Code:

 

Hallo Anja,

zum Löschen von Zeilen, die in einer Spalte einen Suchbegriff beinhalten könntest Du z.B. den Autofilter verwenden - und das auch als Makro aufzeichnen.
Eine weitere Alternative ist das "manuelle" Suchen und Löschen per VBA :

VBA-Code:

Sub StornoLoeschen()     'Löscht alle Zeilen einer Tabelle, die in Spalte C den Begriff "Storno" enthalten     '24.07.2008, NoNet - www.excelei.de     Dim lngZeile As Long     Dim rngBereich As Range     Dim rngZelle As Range     Set rngBereich = Columns("C").Find("Storno") 'Bitte Suchbegriff "Storno" anpassen !     If Not rngBereich Is Nothing Then         lngZeile = rngBereich.Row         Set rngZelle = rngBereich         Do             Set rngZelle = Columns("C").FindNext(after:=rngZelle)             Set rngBereich = Union(rngBereich, rngZelle)         Loop Until rngZelle.Row <= lngZeile         If MsgBox("Sollen nun folgende " & rngBereich.Rows.Count & _             " Zeile(n)gelöscht werden ?" & vbLf & vbLf & rngBereich.EntireRow.Address, _             vbYesNo + vbQuestion, "Löschbestätigung") = vbYes Then             rngBereich.EntireRow.Delete         Else             MsgBox "Zeilen wurden nicht gelöscht !"         End If     Else         MsgBox "Keine STORNOs gefunden !"     End If     'Speicher für Objektvariablen wieder freigeben     Set rngZelle = Nothing     Set rngBereich = Nothing End Sub

Code eingefügt mit Syntaxhighlighter 4.15

 

Super, danke!
Schaut nicht schlecht aus, allerdings löscht er mir nicht alle Zeilen raus - die Texteinträge hab ich kontrolliert, die schauen alle gleich aus.
Woran kann das liegen?

 

Hi Anja!

Welchen Code hast du jetzt verwendet?

Falls du meinen genommen hast musst du natürlich kontrollieren ob mein Bereich (Range("C1:C1000")) auch alle deine Werte abdeckt.

 

Moin, Chris,

und da könnte man durch Umwandlung UCase bzw. LCase schlußendlich nur einen Wert abfragen... *wink.gif*

@anjatifa
Sieh Dir doch bitte das von Thomas Ramel beschriebene Vorgehen einmal an.