Spalten und Zeilen ein- und ausblenden Togglebutto

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Barbara
Geschrieben am: 16.09.2015 15:01:09

Hallo liebe Vollprofis ;),
ich habe in meine Exceltabelle schon diesen Togglebutton eingefügt

Private Sub ToggleButton2_Click()
 Dim Bereich As Range
      Set Bereich = Worksheets("2015").Range("B:AF, BK:EX")
      
      Bereich.EntireColumn.Hidden = Not Bereich.EntireColumn.Hidden
End Sub
hier funktioniert auch alles super.
Jetzt möchte ich noch zusätzlich die Zeile 1-17 + 34-48 ausblenden bzw. wahlweise nur 18-48 oder 1-34.
Wie kombinier ich das am besten?
DAnke schonmal

Bild

Betrifft: AW: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Nepumuk
Geschrieben am: 16.09.2015 16:52:27
Hallo,
mit einem Button? Das geht nicht, außer du klickst dich durch die verschiedenen Konstellationen durch.
Also, wie viele Buttons sollen es sein?
Gruß
Nepumuk

Bild

Betrifft: AW: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Barbara
Geschrieben am: 16.09.2015 16:56:54
3 Button
einer für den ersten zeilen block, einer für den dazwischen und der andere nur für den unteren teil.
gruß

Bild

Betrifft: AW: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Nepumuk
Geschrieben am: 16.09.2015 17:22:52
Hallo,
na dann einfach so:

Private Sub ToggleButton2_Click()
    Rows("1:17").Hidden = ToggleButton2.Value
    Rows("34:48").Hidden = ToggleButton2.Value
End Sub

Private Sub ToggleButton3_Click()
    Rows("18:48").Hidden = ToggleButton3.Value
End Sub

Private Sub ToggleButton4_Click()
    Rows("1:34").Hidden = ToggleButton4.Value
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Barbara
Geschrieben am: 17.09.2015 15:46:52
wie kombinier ich das mit dem schon bestehenden Code?
wenn ich den einfach einfach, macht ers nicht.

Bild

Betrifft: AW: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Nepumuk
Geschrieben am: 17.09.2015 15:51:21
Hallo,
ich versteh nicht ganz. Sollen bei den drei Buttons zusätzlich zur entsprechenden Zeile auch irgendwelche Spalten mit ausgeblendet werden? Ich dachte du hast schon einen Button für die Spalten.
Gruß
Nepumuk

Bild

Betrifft: AW: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Barbara
Geschrieben am: 22.09.2015 09:05:50
Hey,
ich häng immer noch ;(
ich müsste zeilen und spalten ein- und ausblenden mit einem Button hinbekommen.
Bsp: Spalten AG-CP und Zeilen 18-64
und
Bsp: B-AF; BL-CP und Zeilen 2-17 und 33-64
einfach dazu schreiben, nimmt er mir nicht.
HILFE

Bild

Betrifft: AW: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Nepumuk
Geschrieben am: 22.09.2015 10:12:24
Hallo,
alle auf einmal? Wenn nicht, ich kenn keinen Button der 4 verschiedene Schaltzustände hat. Dazu brauchst du mindestens 2 Buttons.
Gruß
Nepumuk

Bild

Betrifft: AW: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Barbara
Geschrieben am: 22.09.2015 10:40:23
achso ne,
ein Button fürs erste Bsp. und ein Button fürs zweite Bsp. und immer alles ausblenden auf einmal.
is das machbar?
Danke
Gruß

Bild

Betrifft: AW: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Nepumuk
Geschrieben am: 22.09.2015 11:06:48
Hallo,
so ok?

Option Explicit

Private Sub ToggleButton1_Click()
    'Spalten AG-CP und Zeilen 18-64
    Columns("AG:CP").Hidden = ToggleButton1.Value
    Rows("18:64").Hidden = ToggleButton1.Value
    If ToggleButton1.Value Then ToggleButton2.Value = True
End Sub

Private Sub ToggleButton2_Click()
    'Spalten B-AF; BL-CP und Zeilen 2-17 und 33-64
    Columns("B:AF").Hidden = ToggleButton2.Value
    Columns("BL:CP").Hidden = ToggleButton2.Value
    Rows("2:17").Hidden = ToggleButton2.Value
    Rows("33:64").Hidden = ToggleButton2.Value
    If ToggleButton2.Value Then ToggleButton1.Value = True
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: Spalten und Zeilen ein- und ausblenden Togglebutto
von: Barbara
Geschrieben am: 22.09.2015 14:09:12
Danke, danke, danke
klappt alles so wie ichs brauch

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Spalten und Zeilen ein- und ausblenden Togglebutto"