Hallo Guste,

ich habe jetzt hier keine Version 2007 oder höher, darum ungetestet.

Option Explicit

Sub Guste()
    Dim LoI As Long
    Dim Loletzte As Long
    Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
    Loletzte = Application.WorksheetFunction.RoundUp(Loletzte / 200, 0) * 200
    For LoI = Loletzte To 200 Step 200
        Columns(LoI).Delete Shift:=xlToLeft
    Next LoI
End Sub

Gruß Hajo

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

Hallo Guste,

mein Makro macht das was im ersten Beitrag gefordert war. Ich konnte es jetzt nur mit 256 Spalten testen. Ich sehe aber keinen Grund warum es in 2007 und höher nicht gehen sollte. Testen kann ich es in 2010 erst am Abend.

Gruß Hajo

Hallo Guste,

ändere diese Zeile
For LoI = Loletzte To 200 Step -200

Gruß Hajo