Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen löschen mit Inhalt Text

Zellen löschen mit Inhalt Text
20.02.2007 19:31:02
Markus
Hallo,
das folgende Makro löscht Zeilen sofern der vorher abgefragte Text (Textx) mit der Spalte (Spaltex) übereinstimmt.
Was muss ich beim Vergleich Textx >> zu Spaltx eingeben, dass ich auch Zeilen löschen kann,
die mit einem Jokerzeichen übereinstimmen.
Ich z.B. die Zeilen, die den Wert Mei* (für Meir, Meier, Meienbaum, Meibach, etc.) im selben Arbeitsgang löschen.
Ist evtl. sogar eine Löschung der Zeilen möglich, wenn ich bei der Abfrage *ei* eingebe, so dass
>> Meier, Beiner, Greiner etc. gelöscht werden.
Besten Dank für Antwort
Markus

Private Sub Loeschen2()
Dim i
For i = Cells(Rows.Count, Spaltx).End(xlUp).Row To 1 Step -1
If Cells(i, Spaltx) = Textx Then Rows(i).Delete
strresult = strresult + 1
Application.StatusBar = "Durchsuchte Zellen " & strresult
Next i
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen löschen mit Inhalt Text
20.02.2007 19:38:46
Kurt
Hi,
If Cells(i, Spaltx) Like "*" & Textx & "*" Then Rows(i).Delete
mfg Kurt
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige