Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

die ersten 4 Zeilen löschen

Forumthread: die ersten 4 Zeilen löschen

die ersten 4 Zeilen löschen
18.11.2005 10:40:03
Jutta
Hallo,
wie ich jede 2. Zeile lösche weiß ich, jetzt muss ich aber ab A2 die ersten 4 Zeilen löschen, die 5. (A6) stehen lassen, die nächsten 4 löschen u.s.w.
Wie geht denn das ?
Gruß
Jutta
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: die ersten 4 Zeilen löschen
18.11.2005 10:47:39
IngGi
Hallo Jutta,
so zum Beispiel:

Sub Zeilen_loeschen()
Dim lRow As Long
For lRow = 65536 To 2 Step -4
Rows(lRow).Delete
Next 'lrow
End Sub
Gruß Ingolf
AW: die ersten 4 Zeilen löschen
18.11.2005 10:57:38
Jutta
Hallo Ingolf,
da hat es mir jetzt jede 3. Zeile gelöscht. Ich brauche aber die ersten 4 gelöscht (A2-A5), A6 soll stehen bleiben, dann wieder die nächsten 4 löschen ((A7-A10)und A11 wieder stehen lassen u.s.w.
Gruß
Jutta
Anzeige
AW: die ersten 4 Zeilen löschen
18.11.2005 11:04:38
haw
Hallo Jutta,

Sub Zeilen_loeschen()
Dim lRow As Long, lz&
lz = Cells(Rows.Count, 1).End(xlUp).Row
For lRow = lz To 2 Step -1
If (lRow Mod 5) <> 1 Then Rows(lRow).Delete
Next lRow
End Sub

Gruß
Heinz
AW: die ersten 4 Zeilen löschen
18.11.2005 11:11:50
Jutta
Perfekt !
Danke !!
Gruß
Jutta
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige