bestimmte Datensätze löschen

Bild

Betrifft: bestimmte Datensätze löschen von: MaBA
Geschrieben am: 02.03.2005 11:46:13

Hallo Forum,

ich brauch mal eure Hilfe.
Habe in meiner Datei mehrere Datensätze und in Spalte 17 in jeder Zeile einen
Code. Die Codes lauten 1 bis 999.
Jetzt will ich aber nur Daten mit bestimmten Codes behalten und die anderen
löschen (komplette Zeile).
Wie kann ich dieses anstellen ohne jedesmal den Befehl:
If Cells(i, 17) = ??? Then
Rows(i).Delete
für jeden einzelnen Code zu verwenden.
Ich möchte nur die Daten mit den Codes: 16,17,30,201,203-219,221,222,224-230,241,901,999 behalten und den Rest löschen.

Bitte um Hilfe

Danke und Gruß

Bild


Betrifft: AW: bestimmte Datensätze löschen von: WernerB.
Geschrieben am: 02.03.2005 12:44:14

Hallo ???,

in diesem Forum bitte mit Real(vor)namen auftreten; siehe dazu bitte auch die "Forums-FAQ"!. Danke!

Zu Deinem Problem: Wie gefällt Dir das?
Sub MaBA()
Dim i As Long, laR As Long
    Application.ScreenUpdating = False
    laR = Cells(Rows.Count, 17).End(xlUp).Row
    For i = laR To 1 Step -1
      Select Case Cells(i, 17).Value
        Case 16, 17, 30, 201, 203 To 219, 221, 222, 224 To 230, 241, 901, 999
        Case Else
          Rows(i).Delete
      End Select
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !


 Bild

Beiträge aus den Excel-Beispielen zum Thema "bestimmte Datensätze löschen"