Zeilen löschen

Bild

Betrifft: Zeilen löschen
von: marc
Geschrieben am: 18.03.2005 10:27:00
hallo zusammen,
mit dem unten stehenden Code kann ich Zeilen löeschen die nicht Zahlen sondern
Text beinhalten.
Nun habe ich den Code an die neue Aufgabe angepasst und im Array stehen nur
Zahlen kein Text mehr.
Der Code ist aber nicht im stande die Zeilen zu löschen.
was muss ich da anpassen bzw. veraendern?
-
marc


Sub DeletDe()
Dim arr As Variant
Dim lngLastRow&
Dim i%
arr = Array("110", "120", "150", "188", "189", "190", "191", "192", _
            "196", "197", "215", "219", "235", "449", "479", "449", "450")
lngLastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
   Application.ScreenUpdating = False
For i = lngLastRow To 1 Step -1
If Cells(i, 1) = arr(0) Or Cells(i, 1) = arr(1) Or Cells(i, 1) = arr(2) _
   Or Cells(i, 1) = arr(3) Or Cells(i, 1) = arr(4) Or Cells(i, 1) = arr(5) _
   Or Cells(i, 1) = arr(6) Or Cells(i, 1) = arr(7) Or Cells(i, 1) = arr(8) _
   Or Cells(i, 1) = arr(9) Or Cells(i, 1) = arr(10) Or Cells(i, 1) = arr(11) _
   Or Cells(i, 1) = arr(12) Or Cells(i, 1) = arr(13) Or Cells(i, 1) = arr(14) _
   Or Cells(i, 1) = arr(15) Or Cells(i, 1) = arr(16) Or Cells(i, 1) = arr(18) Then
   Rows(i).Delete
End If
  Next
  Application.ScreenUpdating = True
  
  End Sub

Bild

Betrifft: AW: Zeilen löschen
von: UweD
Geschrieben am: 18.03.2005 10:54:11
Hallo

2 Fehler
- Du willst Zahlen mit Text vergleichen >>> die "" aus dem Array müssen raus
- Im Array sind 16 Felder zugewiesen, in der Abfrage wird aber arr(18) angegeben..
Das muß übereinstimmen 0 bis 16 = 17 Werte
So gehts

Sub DeletDe()
Dim arr As Variant
Dim lngLastRow&
Dim i%
arr = Array(110, 120, 150, 188, 189, 190, 191, 192, _
            196, 197, 215, 219, 235, 449, 479, 449, 450)
lngLastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
   Application.ScreenUpdating = False
For i = lngLastRow To 1 Step -1
If Cells(i, 1) = arr(0) Or Cells(i, 1) = arr(1) Or Cells(i, 1) = arr(2) _
   Or Cells(i, 1) = arr(3) Or Cells(i, 1) = arr(4) Or Cells(i, 1) = arr(5) _
   Or Cells(i, 1) = arr(6) Or Cells(i, 1) = arr(7) Or Cells(i, 1) = arr(8) _
   Or Cells(i, 1) = arr(9) Or Cells(i, 1) = arr(10) Or Cells(i, 1) = arr(11) _
   Or Cells(i, 1) = arr(12) Or Cells(i, 1) = arr(13) Or Cells(i, 1) = arr(14) _
   Or Cells(i, 1) = arr(15) Or Cells(i, 1) = arr(16) Then
   Rows(i).Delete
End If
  Next
  Application.ScreenUpdating = True
  
  End Sub


Gruß Uwe
Bild

Betrifft: AW: Zeilen löschen
von: marc
Geschrieben am: 18.03.2005 11:15:51
hallo Uwe,
danke fuer die schnelle Antwort.
Gruss
-
marc :o)
 Bild

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