mehrere Spalten - ToggleButton

Forumthread: mehrere Spalten - ToggleButton
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: mehrere Spalten - ToggleButton

21.08.2020 11:03:09

Marko

Hallo,
ich stehe vor folgendem Problem:
Mit einem ToggleButton möchte ich die Spalten N, EX, EV und EZ ein- und ausblenden.
Wie spreche ich gleichzeitig die Spalten in dem Code an?

Private Sub ToggleButton1_Click()
If Columns("N"),Columns("EX:EZ").EntireColumn.Hidden = False Then
Columns ("N"), Columns("EX:EZ").EntireColumn.Hidden = True
ElseIf Columns("N"),Columns("EX:EZ").EntireColumn.Hidden = True Then
Columns ("N"), Columns("EX:EZ").EntireColumn.Hidden = False
End If
End Sub

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: mehrere Spalten - ToggleButton

21.08.2020 11:24:08

Werner
AW: mehrere Spalten - ToggleButton

21.08.2020 11:25:59

Marko
Gerne u. Danke für die Rückmeldung. o.w.T.

21.08.2020 11:32:30

Werner
AW: mehrere Spalten - ToggleButton

21.08.2020 11:27:16

Werni
AW: mehrere Spalten - ToggleButton

21.08.2020 12:02:47

Marko

AW: mehrere Spalten - ToggleButton

21.08.2020 11:24:08

Werner

Hallo,

Private Sub ToggleButton1_Click()
Columns("N").Hidden = Not Columns("N").Hidden
Columns("EX:EZ").Hidden = Columns("N").Hidden
End Sub

Gruß Werner

AW: mehrere Spalten - ToggleButton

21.08.2020 11:25:59

Marko

Hallo Werner,
vielen Dank für Deine schnelle Antwort.

Gerne u. Danke für die Rückmeldung. o.w.T.

21.08.2020 11:32:30

Werner

AW: mehrere Spalten - ToggleButton

21.08.2020 11:27:16

Werni

Hallo

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
Columns("N:N").EntireColumn.Hidden = False
Columns("EX:EZ").EntireColumn.Hidden = False
Else
Columns("N:N").EntireColumn.Hidden = True
Columns("EX:EZ").EntireColumn.Hidden = True
End If
End Sub

Gruss Werni