Clever-Excel-Forum

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

Hallo,

teste mal das:

Zitat:Sub Lösche2Spalten()

Dim s

For s = 1 To Columns.Count / 2

Columns(s + 18).EntireColumn.Delete

Next

End Sub

Sehr cool Luffy!!!
funtioniert perfekt

Beste Grüße
Tobi

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

tobipale

Luffy

tobipale

Steffl