Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Jede 2. + 3. Zeile löschen

Jede 2. + 3. Zeile löschen
26.07.2007 08:41:07
micha
Hallo VBA - Experten,
ich brauche heute ein Makro um aus einer Exceltabelle jede 2. und 3. Zeile zu löschen.
Also Zeile 2+3 löschen, Zeile 4 wird Zeile 2 - Zeile 4+6 löschen, Zeile 7 wird Zeile 3 usw. Gibt es hierfür eine Möglichkeit?
Danke schon mal für Eure hoffentlich positiven Antworten.
Gruß Micha

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

Betreff
Datum
Anwender
Anzeige
AW: Jede 2. + 3. Zeile löschen
26.07.2007 08:59:00
Hajo_Zi
Hallo Micha,

Option Explicit
Sub Micha()
Dim Loletzte As Long
Dim Loi As Long
Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Application.ScreenUpdating = False
For Loi = Loletzte To 2 Step -1
If (Loi - 1) Mod 3  0 Then
Rows(Loi).Delete
End If
Next Loi
Application.ScreenUpdating = True
End Sub



AW: Jede 2. + 3. Zeile löschen
26.07.2007 09:03:00
micha
Bingo - es funktioniert!!
Vielen Dank Hajo
-- S U P E R --
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige