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"