Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

ToggleButton beim Programmstart aktivieren.


Betrifft: ToggleButton beim Programmstart aktivieren. von: Eisi
Geschrieben am: 06.03.2018 17:23:18

Hallo,

eigentlich läuft alles perfekt, aber nicht wirklich.

Über einen ToogleButton schalte ich nachfolgenden Code ein und aus. Der Button liegt auf der _
UserForm1_PVL.


Private Sub ToggleButton1_Click() 
    If ToggleButton1.Caption = "Zeile aus" Then
       ToggleButton1.Caption = "Zeile ein"
    Else
       ToggleButton1.Caption = "Zeile aus"
    End If
End Sub

Der Code selber steht im Blatt "Grundtabelle".

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If UserForm1_PVL.ToggleButton1.Caption = "Zeile ein" Then
        Application.EnableEvents = False
        Target.EntireRow.Select
        Target.Activate
        Application.EnableEvents = True
     End If
End Sub

Wenn ich die Exceltabelle komplett neu öffne, dann funktioniert die Zeilenmarkierung nicht, obwohl der Button eingeschaltet ist. Erst wenn ich mit dem Cursor ins Sheet gehe und den Button aus und wieder einschalte, dann funktioniert die Zeilenmarkierung wieder.

Ich schätze mal, der Code weis nicht, das beim Aufrufen der Datei, automatisch das Sheet Grundtabelle mit dem ToggleButton aktiviert werden soll.
Tja, ich auch nicht. :-)

Habt Ihr einen Tipp für mich?

Herzlichen Dank.

  

Betrifft: AW: ToggleButton beim Programmstart aktivieren. von: Mullit
Geschrieben am: 06.03.2018 17:46:18

Hallo,

Du änderst die Caption zur Laufzeit, der Wert bleibt nach Schließen der Form nicht erhalten, entweder speicherst Du ihn zusätzlich in einer Tab-Zelle, oder vor Schließen der Mappe über die Designer-Eig. 'hard' in der Form, oder Du sorgst dafür, daß die Form vor Ausführung des Events immer mit einer bestimmten Voreinstellung geöffnet wird...

Gruß, Mullit


  

Betrifft: AW: ToggleButton beim Programmstart aktivieren. von: Eisi
Geschrieben am: 06.03.2018 17:52:02

Ups :-)
Herzlichen Dank für die Info lieber Mullit, gigantisches Spezialwissen.
Aber das übersteigt meinen Horizont um Welten, dann lasse ich es lieber so, wie es ist.
Nicht perfekt, aber auch sehr gut. :-)

Herzlichen Dank.

GLG Eisi :-)

Grüße auch an den Rest der User. Jetzt gehe ich nach Hause.


Beiträge aus dem Excel-Forum zum Thema "ToggleButton beim Programmstart aktivieren."