Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1212to1216
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
Inhaltsverzeichnis

Jede fünfte Zeile löschen

Jede fünfte Zeile löschen
amintire
Guten morgen,
wie kann ich mit VBA Code jede Fünfte Zeile löschen?
Lieben Gruß
Amina

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

Betreff
Benutzer
Anzeige
AW: Jede fünfte Zeile löschen
06.05.2011 08:10:38
Harald
Hallo Amina,
folgender Code löschrt jede 5. Zeile in dem vorher selektierten bereich:
Sub test()
Dim zeile As Long
Dim Z_Start As Long
Dim Z_End As Long
Z_Start = Selection.Rows(1).Row + 4
Z_End = Selection.Rows(1).Row + Selection.Rows.Count - Int((Selection.Rows.Count / 5))
If Selection.Rows.Count 
Sub ' weniger als 5 zeilen
For zeile = Z_Start To Z_End Step 4
Rows(zeile).Delete
Next
End Sub

Gruß Harald
Anzeige
AW: Jede fünfte Zeile löschen
06.05.2011 08:17:12
amintire
Hallo Harald,
perfekt, Danke.
Lieben Gruß
Amina

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige