VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Spalten einer Mehrbereichsauswahl ausblenden.

Gruppe

Allgemein

Bereich

Bereich

Thema

Spalten einer Mehrbereichsauswahl ausblenden.

Problem

Wie kann ich die Spalten einer Mehrbereichsauswahl ausblenden?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub MultiSelectHidden()
   Const csHidden As String = "Spalten ausblenden"
   Const csVisible As String = "Spalten einblenden"
   With ActiveSheet.Buttons(1)
      If .Caption = csHidden Then
         Selection.EntireColumn.Hidden = True
         .Caption = csVisible
      Else
         Columns.Hidden = False
         .Caption = csHidden
      End If
   End With
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bereich