Hallo!
Kann mir jemand ein Makro erstellen, bei dem in einer
Datei jede zweite Zelle (2,4,6,usw.) gelöscht wird?
Dafür wäre ich sehr dankbar.
Grüße
Daniel
Hallo Daniel!
Zeilen oder Inhalt löschen? OptionExplicit
Sub JedeZweiteLoeschen() Dim lngR AsLong For lngR = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 'If lngR Mod 2 = 0 Then Rows(lngR).Delete 'Zeile löschen If lngR Mod 2 = 0 Then Rows(lngR).EntireRow.ClearContents 'Inhalt löschen Next EndSub
Gruß Sepp
Anzeige
AW: Jede zweite Zeile löschen
Daniel
Hallo!
Die ganze Zeile soll gelöscht werden.
Also einfach die erste IF... Zeile verwenden, oder?
Danke!
Daniel
Ja! o.T.
15.04.2004 20:30:12
Josef
Gruß Sepp
AW: Jede zweite Zeile löschen
FP
Hallo Daniel,
hier eine IMHO etwas schnellere Variante:
Public
Sub DelRow2()
Dim z As Long, z9 As Long
z9 = Cells(1, 1).CurrentRegion.Rows.Count \ 2 + 1
z = 1
Application.ScreenUpdating = False
Do
z = z + 1
Rows(z).Delete
Loop Until z = z9
Application.ScreenUpdating = True
End Sub
Servus aus dem Salzkammergut
Franz