Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten per Toggle ausblenden

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
Anzeige
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. ;-)
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige