Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Zeilen löschen"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren