Ich Habe mehrere Toggle-Buttons angelkegt, mit denen ich unterschiedliche Spalten Ein-Und Ausblenden kann... Die Buttons rufen dann die Entsprechenden Makros in Modul1 auf
Funktioniert soweit top...
Mein kleines Problem:
Ich möchte eine Schaltfläche haben, die auch alle Spalten wieder einblendet und dabei gleichzeitig die anderen Toggle-Buttons wieder zurücksetzt in "nicht geklickt".
Mit "Alles_Einblenden" (liegt im Modul1) funktioniert... nur für das Zurücksetzen der Toggle-Buttons finde ich keine Lösung...
Gibt es da eine Möglichkeit?
Hier mal mein Aufbau:
Die Button-SUB funbktioniert soweit (nur eine dargestellt als Beispiel):
Private Sub Grundpreise_Allein_Click()
Dim TB As ToggleButton
If Grundpreise_Allein = True Then
Grundpreise_Allein.Caption = "Rest einblenden"
Call Nur_Grundpreise
Else
Grundpreise_Allein.Caption = "Nur Grundpreise"
Call Nur_Grundpreise_zurück
End If
End Sub
Das soll der Button werden, der alle Spalten wieder einblendet und gleichzeitig die Toggle-Buttons zurücksetzen soll:
Private Sub Alle_Spalten_Einblenden_Click()
Call Grundpreise_Allein_Click(False)