Zeilen löschen

Bild

Betrifft: Zeilen löschen
von: marc
Geschrieben am: 17.03.2005 12:26:36
hallo zusammen,
in meinem VBA-Code ist ein Fehler, GoTo kommt als Meldung.
was habe ich vergessen ?
-
marc.


Sub DeletDe()
Dim arr As Variant
Dim lngLastRow&
Dim i%
arr = Array("010", "020", "149", "180", "184", "190")
lngLastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
   Application.ScreenUpdating = False
For i = lngLastRow To 1 Step -1
If Cells(i, 5) = arr(0) Or Cells(i, 5)= arr(1) Or Cells(i, 5) = arr(2) _
   Or Cells(i, 5) = arr(3) Or Cells(i, 5) = arr(4) Or Cells(i, 5) = arr(5) _
   Rows(i).Delete
    End If
  Next
  Application.ScreenUpdating = True
  
  End Sub


Bild

Betrifft: AW: Zeilen löschen
von: Matthias G
Geschrieben am: 17.03.2005 12:30:35
Hallo Marc,
Or Cells(i, 5) = arr(3) Or Cells(i, 5) = arr(4) Or Cells(i, 5) = arr(5) Then _
...
Gruß Matthias
Bild

Betrifft: und ohne Unterstrich danach - o.T.
von: Matthias G
Geschrieben am: 17.03.2005 12:31:28
-
Bild

Betrifft: AW: und ohne Unterstrich danach - o.T.
von: marc
Geschrieben am: 17.03.2005 12:46:42
hallo Matthias,
danke fuer die schnelle Antwort.
marc. :o)
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilen löschen"