Microsoft Excel

Herbers Excel/VBA-Archiv

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

ToggleButtons bei click versetzen


Betrifft: ToggleButtons bei click versetzen von: Christoph
Geschrieben am: 20.12.2017 10:47:47

Moin moin,
vorweg muss ich gestehen, dass ich die gesamte Worksheet_SelectionChange Aktion nur grob kapiere und es deswegen auch noch nicht hinbekomme.

Ich habe ein recht langes Tabellenblatt und mir zwei ToggleButtons installiert die ich gerne auch beim scrollen immer am rechten oberen Rand haben möchte.
Um einen Togglebutton mitzunehmen haben ich folgendes Sub gefunden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ToggleButton1.Top = ActiveWindow.VisibleRange.Top
    ToggleButton1.Left = ActiveWindow.VisibleRange.Left +  ActiveWindow.VisibleRange.Width / 1. _
5
End Sub

Aber wie kriege ich nun den zweiten Togglebutton mit?
Wenn ich das selbe Sub mit nem anderen Name erstelle nimmt er den zweiten dennoch nicht mit,
wenn ich den zweiten ToggleButton in dem Sub einfüge nimmt er ihn auch nicht mit.

Könnte mir jemand bei dem problem helfen und gleichzeitig eventuell erklären wie dieses Worksheer_selectionChange (Byval Target as range) funktioniert?!

  

Betrifft: AW: ToggleButtons bei click versetzen von: EtoPHG
Geschrieben am: 20.12.2017 11:04:28

Hallo Christoph,

Es kann nur einen und nicht mehrere SelectionChange-Ereignisprozeduren in der Codeklasse haben!
Darum verdoppelst du einfach deine beider ToggleButton1... Codezeilen für Togglebutton2 und passt die .Left Eigenschaft mit + Togglebutton1.Width + 10 noch an.

Gruess Hansueli


  

Betrifft: AW: ToggleButtons bei click versetzen von: Christoph
Geschrieben am: 20.12.2017 11:22:51

Damn it...
Keine Ahnung was ich davor falsch gemacht habe, Kopf scheint nicht mehr zu wollen so wie ich.....

vielen dank!!


Beiträge aus den Excel-Beispielen zum Thema "ToggleButtons bei click versetzen"