Zeilen mit Bedingung löschen
19.10.2018 19:42:18
hewi
ich habe diesem Forum schon viele gute Tipps entnommen, aber jetzt komme ich nicht weiter.
Unsere Telefonanlage erzeugt einen täglichen Report als CSV-Datei, die ich per Makro in Excel einlese (alle Felder als Text). Ich möchte nun alle Datensätze mit ungültigen (virtuellen) Rufnummern in Spalte D löschen. Das versuche ich mit:
Sub ungültige_DN_löschen()
Dim lastrow As Long, i As Long, DN As String
Sheets("Daten").Select
lastrow = Cells(Rows.Count, 4).End(xlUp).Row 'ermittelt die letzte Datenzeile in Spalte D
For i = lastrow To 2 Step -1
DN = Cells(i, 4).Value
Select Case DN
Case Left(DN, 2) = "99"
Rows(i).Delete Shift:=xlUp 'löscht DN, die mit 99 beginnen
Case DN >= "a"
Rows(i).Delete Shift:=xlUp 'löscht DN, die mit Buchstaben beginnen
Case DN = "*#*"
Rows(i).Delete Shift:=xlUp 'löscht DN, die # enthalten
Case DN = "*[*"
Rows(i).Delete Shift:=xlUp 'löscht DN, die [ enthalten
Case DN = "*x*"
Rows(i).Delete Shift:=xlUp 'löscht DN, die x enthalten
End Select
Next i
End Sub
Dieses Makro läuft ohne Fehler durch, allerdings scheint keine der Bedingungen zu greifen - es werden keine Datensätze gelöscht.
Was mache ich falsch?
Viele Grüße
Helmut