ToggleButton beim Programmstart aktivieren.
06.03.2018 17:23:18
Eisi
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.