Wildcard für VBA Code gesucht

[MichaLauterbach]

Hallo zusammen,

Ich muss aus einer 4000 Zeilen langen Rohtabelle eine mit 400 machen, unnötige Zeilen rausschmeißen.
Das mach ich mit folgendem Code.

Code:

Z1 = 2
    strOrt = "SDT; SXC; MNU; KNZ; SKL; LKI; SKE; JKE; JKE;"
    strLand = "ABC; MNZ; AKL; APL; UVW; STZ; XVS; GNE;"
    strEinwohner = "DD25; CV12; DD119; 50; 75; DD15T7; 58; 46; 27;"
        
    Last = Cells(Rows.Count, 1).End(xlUp).Row
    For i = Last To Z1 Step -1
        If (Cells(i, 1) <> "" And InStr(strOrt, Cells(i, 1) & ";") > 0) Or _
            (Cells(i, 4) <> "" And InStr(strLand, Cells(i, 4) & ";") > 0) Or _
            (Cells(i, 5) <> "" And InStr(strEinwohner, Cells(i, 5) & ";") > 0) Or _
            (Cells(i, 1).Value = Cells(i, 4).Value) Or _
            (Cells(i, 1).Interior.ColorIndex = 3) Then
                Rows(i).Delete
        End If
    Next

 
Also bestimmte Orte, Länder ect. in diesem Fall werden direkt gelöscht. Wie bekomm ich es hin dass ich statt
strEinwohner = "DD25; DD119; DD15T7;" alle DD einzeln aufzählen muss, und stattdessen einfach "DD*" löschen lasse?
DD* funktioniert nicht.


Vielen Dank!

[ralf_b]

versuchs doch mal mit dem like Operator  if  string like "DD*" then Rows(n).delete

[MichaLauterbach]

Ah habs mit = versucht, LIKE kannte ich nicht.

Danke dir!