Spalten per Toggle ausblenden

Forumthread: Spalten per Toggle ausblenden

13.01.2005 15:52:58

Dr.

Hallo Leute,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten per Toggle ausblenden

13.01.2005 16:03:59

Josef
AW: Spalten per Toggle ausblenden

Dr.

AW: Spalten per Toggle ausblenden

13.01.2005 16:03:59

Josef

Hallo ? (realnames sind hier üblich und erwünscht!)
Probier mal so:


Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "% ein"
Range("G:G,J:J,M:M,P:P,S:S,V:V,AB:AB,AE:AE,AH:AH,AK:AK,AN:AN,AQ:AQ") _
.EntireColumn.Hidden = True
Else
ToggleButton1.Caption = "% aus"
Range("G:G,J:J,M:M,P:P,S:S,V:V,AB:AB,AE:AE,AH:AH,AK:AK,AN:AN,AQ:AQ") _
.EntireColumn.Hidden = False
End If
Application.ScreenUpdating = True
End Sub

Gruß Sepp

AW: Spalten per Toggle ausblenden

Dr.

Perfekt, danke!
Und Dr. bleibt Dr. ;-)

Beliebteste Forumthreads (12 Monate)

Forumthread: Spalten per Toggle ausblenden

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread