Gruppe
Allgemein
Problem
Alle Spalten ohne Wert oder mit dem Wert 0 sollen ausgeblendet werden.
StandardModule: Modul1
Sub HideColumns()
Dim iCol As Integer
Application.ScreenUpdating = False
For iCol = 1 To 256
If Cells(5, iCol).Value = 0 Then
Columns(iCol).Hidden = True
End If
Next iCol
Application.ScreenUpdating = True
End Sub
Sub UnHideColumns()
Columns.Hidden = False
End Sub