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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen