Also das MAkro funktioniert nicht aber ich hab ein MAkro gefunden was die Zeilen löscht vieleicht ist es einfacher es auf Spalte umzuschreiben und anstatt jede 2. jede 200. Spalte zu löschen? Weis nicht ob das mehr aufwand ist als ein neues zu schreiben
Sub JedeZweiteZeileLöschen()
n = 1: m = 1
'Zeile, Spalte (Startzelle - ev. einstellen)
Cells(n, m).Select
nende = ActiveSheet.UsedRange.Rows.Count
For i = n To nende
ActiveCell.Offset(1, 0).Select 'Zeile weiter
Selection.EntireRow.Delete 'ganze Zeile löschen
Next i
End Sub
Lg Guste