Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: exel Zeilen über makro löschen

exel Zeilen über makro löschen
05.09.2005 14:15:13
ronald
Hi zusammen
hab folgendes problem ich möchte gerne über ein Makro das alle Zeilen bis auf die jeweils 5te Zeile gelöscht werden z.b. soll am schluss nur noch die erste die 6te 11te Zeile usw. stehenbleiben. Kann mir da jemand helfen?
Gruss
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: exel Zeilen über makro löschen
05.09.2005 14:38:00
Matthias
Hallo Ronald,

Sub Löschen()
Dim lz As Long, i  As Long
lz = Range("A65536").End(xlUp).Row 'letzte Zeile Spalte A ermitteln
For i = lz To 1 Step -1
If (i - 1) Mod 5 <> 0 Then
Rows(i).Delete
End If
Next i
End Sub

Gruß Matthias
AW: exel Zeilen über makro löschen
05.09.2005 14:45:05
ronald
Vielen dank klappt wunderbar :)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige