vorhandene CommanButton zaehlen
07.09.2018 09:59:06
Torsten
ich habe einen Code, um einen CommandButton zu erzeugen auf dem aktiven Tabellenblatt. Das funktioniert auch super. Allerdings würde ich den Code gerne erweitern, da schon Buttons auf dem Blatt vorhanden sind.
Meine Frage. Wie kann ich die vorhandenen Buttons zählen, damit ich den neu erzeugten richtig _ benennen kann, also die Anzahl an eine Variable (z.B. a) übergeben kann und ihn dann mit
"Button_" & a + 1
benenne?Mein Code:
Private Sub Create_Button()
Dim btn As Button
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=ActiveSheet.Cells(2, 22).Left + 5, _
Top:=ActiveSheet.Cells(2, 22).Top, Width:=117#, Height:=27).Name = "Button_1"
End Sub
Vielen Dank für eure Hilfe.