Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spalten mit Zellen ohne Eintrag oder 0-Werten ausblenden

Gruppe

Filtern

Problem

Alle Spalten ohne Wert oder mit dem Wert 0 sollen ausgeblendet werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn zwei Schaltflächen zu.

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