Tipps & Tricks 16.04.2005, 14:15 Uhr

Jede zweite Excel-Zeile löschen

In grösseren Exceltabellen mit dutzenden von Spalten und einigen 100 Zeilen sollte ich jede zweite Zeile löschen. Diese zeiten Zeilen sind jeweils verbundene Zeilen (d.h. A2 umfasst die Felder A2 bis P2). Gibt es für diesen Löschvorgang einen Trick oder ein Makro?
Dafür können Sie folgendes Makro verwenden. Kopieren Sie den Code und fügen Sie in jeweils in der zu bearbeitenden Datei in ein Modul ein. Wie
--------------------------------------------
MAKRO ZUM KOPIEREN:
--------------------------------------------
Sub Jede2teZeile()
Dim i As Long
Sheets("Tabelle1").Activate
Application.ScreenUpdating = False
Range("A2:IV1000").Select
For i = Selection.Rows.Count To 0 Step -1
If i Mod 2 = 1 Then
Selection.Rows(i).Delete Shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub
--------------------------------------------


Kommentare

Es sind keine Kommentare vorhanden.