nach einem Export aus einer Datenbank ist in der Excel Tabelle jede zweite Spalte leer. Gibt es ein Markro, welches diese automatisch löschen kann?
Schon mal danke im voraus.
Gruß
Kai
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
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort