die ersten 4 Zeilen löschen

Forumthread: die ersten 4 Zeilen löschen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: die ersten 4 Zeilen löschen

18.11.2005 11: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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: die ersten 4 Zeilen löschen

18.11.2005 11:47:39

IngGi
AW: die ersten 4 Zeilen löschen

18.11.2005 11:57:38

Jutta
AW: die ersten 4 Zeilen löschen

18.11.2005 12:04:38

haw
AW: die ersten 4 Zeilen löschen

18.11.2005 12:11:50

Jutta

AW: die ersten 4 Zeilen löschen

18.11.2005 11: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 11: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

AW: die ersten 4 Zeilen löschen

18.11.2005 12: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 12:11:50

Jutta

Perfekt !
Danke !!
Gruß
Jutta