nachstehender Code blendet ganz simpel bei Betätigung einer Schaltfläche 12 Spalten aus bzw. wieder ein. Das sollte meiner Meinung nach ein Vorgang sein, der so schnell abläuft, dass es kaum spürbar ist.
Aber im Gegenteil rennt das Ding ca. 10 Sekunden, bis es den Vorgang abgeschlossen hat. Hat einer ne Idee, warum das so ist?
Danke im voraus!
Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = False Then
Application.ScreenUpdating = False
TB.Caption = "% ein"
Columns("g").EntireColumn.Hidden = True
Columns("j").EntireColumn.Hidden = True
Columns("m").EntireColumn.Hidden = True
Columns("p").EntireColumn.Hidden = True
Columns("s").EntireColumn.Hidden = True
Columns("v").EntireColumn.Hidden = True
Columns("y").EntireColumn.Hidden = True
Columns("ab").EntireColumn.Hidden = True
Columns("ae").EntireColumn.Hidden = True
Columns("ah").EntireColumn.Hidden = True
Columns("ak").EntireColumn.Hidden = True
Columns("an").EntireColumn.Hidden = True
Columns("aq").EntireColumn.Hidden = True
Else
Application.ScreenUpdating = False
TB.Caption = "% aus"
Columns("g").EntireColumn.Hidden = False
Columns("j").EntireColumn.Hidden = False
Columns("m").EntireColumn.Hidden = False
Columns("p").EntireColumn.Hidden = False
Columns("s").EntireColumn.Hidden = False
Columns("v").EntireColumn.Hidden = False
Columns("y").EntireColumn.Hidden = False
Columns("ab").EntireColumn.Hidden = False
Columns("ae").EntireColumn.Hidden = False
Columns("ah").EntireColumn.Hidden = False
Columns("ak").EntireColumn.Hidden = False
Columns("an").EntireColumn.Hidden = False
Columns("aq").EntireColumn.Hidden = False
End If
Application.ScreenUpdating = True
End Sub