Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen löschen

Zeilen löschen
17.03.2005 12:26:36
marc
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


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
17.03.2005 12:30:35
Matthias
Hallo Marc,
Or Cells(i, 5) = arr(3) Or Cells(i, 5) = arr(4) Or Cells(i, 5) = arr(5) Then _
...
Gruß Matthias
und ohne Unterstrich danach - o.T.
17.03.2005 12:31:28
Matthias
-
AW: und ohne Unterstrich danach - o.T.
17.03.2005 12:46:42
marc
hallo Matthias,
danke fuer die schnelle Antwort.
marc. :o)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige