Interner Schaltflächenzähler zurücksetzen.
11.05.2016 10:47:02
MarkusS.
hätte mal eine Frage evtl. kennt ihr ja die Lösung.
Es werden in einem Tabellenblatt einige Buttons erzeugt.
Anscheinend zählt Excel intern die Nummern weiter bis zum Ende dann kommt ein Laufzeitfehler bei Button 65537
Bräuchte eine Möglichkeit den Zähler zurückzusetzen.
Beispielcode:
Buttonzaehler = Buttonzaehler + 1
ActiveSheet.Buttons.Add(865, (ZaehlerLinie3 + 3 + VolleWaegen + 1) * 12.75 + 2, 60, 22). _
Select
With Selection
.Name = "CButton" & Buttonzaehler
.OnAction = "DruckenK" & Buttonzaehler 'DruckenK... befindet sich dann in Modul3
.Characters.Text = "Drucken" 'Beschriftung für die Druckknöpfe
End With