ToggleButtons bei click versetzen
20.12.2017 10:47:47
Christoph
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?!