Zeile loeschen bei bestimmten Werten! (circa 1300)
18.05.2005 12:49:49
Alexander
Ich weiss, dass dieses Thema schon mehrmals behandelt wurde. Aber mein Problem ist, dass ich insgesamt circa 1300 unterschiedliche Werte löschen will. Fuer jeden eine einzelne IF THEN Anweisung in VBA zu machen ist dazu zu aufwendig.
Die Zellen die ich loeschen will enthalten einen Code, der Code ist 001-A0001 bis 026-A0010. Ich dachte mir ich kann das in der Form 0##-#### oder 0XX-XXXX formatierten. Ich weiss nur leider nicht wie ich das in VBA schreiben soll. ALternativ wuerde ich es auch in Excel loeschen, was aber auch automatisch gehen muss. Meine VBA sieht im Moment folgernmassen aus.
Private Sub CommandButton1_Click()
Dim x As Long
Dim letzte As Long
letzte = Range("A65536").End(xlUp).Row
For x = letzte To 2 Step -1
If Cells(x, 2) = ?0XX-XXXX? Then
Rows(x).Delete shift:=xlUp
End If
Next
End Sub
PS: Vielleicht noch kurz zum Hintergrund, ich lese Daten mit SQL aus einem PPS System aus. Davon benoetige ich aber 2/3 der Daten nicht und die moechte ich entfernen. Die Daten dienen als Eingabe fuer ein komplexes VBA Programm und werden durch die betaetigung eines Button aus der Datenbank kopiert (ueber SQL query) Danach sollen sie gereinigt werden, automatisch im Hintergrund ohne das der Endnutzer was davon mitbekommt.