Spalten löschen

[tobipale]

Hi zusammen,
ich brauche eine Makro mit der ich jede 2te Spalte löschen kann.
Und zwar soll das bei der Spalte S losgehen.
Heißt es soll S, U, W, ...... gelöscht werden.

So weit bin ich bis jetzt gekommen

Option Explicit

Sub LoescheJedeZweiteSpalte()
   Dim intC As Integer
  
   For intC = Cells(1, Columns.Count).End(xlToLeft).Column - 1 To 2 Step -2
      If IsEmpty(Cells(1, intC)) Then Columns(intC).Delete
   Next intC
End Sub

Vielen Dank für eure Hilfe!!!!

Schöne Grüße

Tobi

[Luffy]

Hallo,

teste mal das:

Sub Lösche2Spalten()

    Dim s

    For s = 1 To Columns.Count / 2

        Columns(s + 18).EntireColumn.Delete

    Next

End Sub

[tobipale]

Sehr cool Luffy!!!
funtioniert perfekt

Beste Grüße
Tobi

[Steffl]

Hallo,

beim Spalten löschen sollte man von rechts nach links löschen, da sonst die falschen Spalten gelöscht werden.

Code:

Sub LoescheJedeZweiteSpalte()
   Dim intC As Integer
  
   For intC = IIf(Cells(1, Columns.Count).End(xlToLeft).Column Mod 2, Cells(1, Columns.Count).End(xlToLeft).Column, Cells(1, Columns.Count).End(xlToLeft).Column - 1) To 19 Step -2
      If IsEmpty(Cells(1, intC)) Then Columns(intC).Delete
   Next intC
End Sub