Supportnet / Forum / Tabellenkalkulation

Hallo! Suche VBA code der alle leeren Spalten in einer Excel Tabelle entfernt! Danke im Voraus doehli21

Hi doehli21,

ich weiß jetzt nicht, ob Du nun wirklich möchtest, dass alle leeren Spalten gelöscht werden und somit alle Spalten, in denen etwas steht nebeneinander zusammengefast werden sollen oder eventuell die Spalten nur ausgeblendet werden sollen, damit man keine leeren Spalten sieht. Aus diesem Grund schreibe ich Dir hier mal zwei Makros hin. Das erste löscht alle leeren Spalten, das zweite blendet die Spalten nur aus. Beide Makros müssen in ein StandardModul kopiert werden.

Sub Leere_Spalten_löschen()
Dim leere_Spalte As Integer
Application.ScreenUpdating = False
For leere_Spalte = 256 To 1 Step -1
If Application.CountA(Columns(leere_Spalte)) = 0 Then
Columns(leere_Spalte).Delete
End If
Next
End Sub

Sub Leere_Spalten_ausblenden()
Dim leere_Spalte As Integer
Application.ScreenUpdating = False
For leere_Spalte = 256 To 1 Step -1
If Application.CountA(Columns(leere_Spalte)) = 0 Then
Columns(leere_Spalte).EntireColumn.Hidden = True
End If
Next
End Sub

Ich hoffe, Du kannst mit den Makros etwas anfangen.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

• Exel spalten löschen und leere Spalten mit 0 füllen
• Excel Automatisch mit Werte auffüllen??!!
• Excel per VBA automtisch speichern mit ERWEITERUNG aus anderer Tabelle
• Excel Daten in Access Tabelle importieren
• Zellen kopieren und tiefer einfügen mit Makro