Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige