Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen löschen mit wildcard werte

Zeilen löschen mit wildcard werte
21.07.2008 16:02:51
maruseru
Werte Profis
Wie bringe ich folgendes Makro zum funktionieren?
Es sollen alle Zeile gelöscht werden, wenn in Spalte B der M* oder G* vorkommt
Danke und Gruss
Maruseru

Sub löschen()
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
On Error Resume Next
If CStr(Cells(i, 2).Value) Like "M*" Then
Rows(i).Delete
End If
Next
End Sub


Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen mit wildcard werte
21.07.2008 16:12:29
Reinhard
Hi Maserusu,

Option Explicit
Sub löschen()
Dim i As Long
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If CStr(Cells(i, 2).Value) Like "M*" Or CStr(Cells(i, 2).Value) Like "G*" Then Rows(i). _
Delete
Next
End Sub
Sub löschen2()
Dim i As Long
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If InStr("MG", Left(Cells(i, 2).Value, 1)) Then Rows(i).Delete
Next
End Sub


Gruß
Reinhard

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige