Wer kann mit einem Makro aushelfen?
Ich möchte im Arbeitsblatt (KopieTabAusPerdis)erst die Erste und weiter ab da jede zweite Zeile im bereich A1:A500 löschen.
Danke achim h.
Sub Zeilen_loeschen()
Dim i As Integer
For i = 499 To 1 Step -2
Rows(i).Delete
Next 'i
End Sub
Gruß Ingolf
Sub wegdamit()
Dim TB, Z%, S1%, Sn%, SP%, K%, I%
I = 0 ' I=1 Nur ungerade löschen I=0 Nur gerade löschen
Set TB = Sheets("KopieTabAusPerdis")
S1 = 1 'Ab Zeile1
Sn = 500 'bis Zeile 500
SP = 1 'SpalteA
K = Sn Mod 2 'Restermittlung
Application.ScreenUpdating = False
For Z = Sn + K - I To S1 Step -2 ' Nur Ungerade löschen
TB.Rows(Z).Delete 'Zeile kompl. Löschen
'oder TB.Rows(Z).ClearContents 'Nur Inhalte raus
Next
Application.ScreenUpdating = True
TB.Cells(1, 1).Select
End Sub