Microsoft Excel

Herbers Excel/VBA-Archiv

Makro zuweisen

Betrifft: Makro zuweisen von: Walter
Geschrieben am: 12.08.2020 16:35:18

Hallo allerseits,
ich habe folgendes Makro aufgezeichnet:

Sub Makro4()
    ActiveSheet.Shapes.Range(Array("Button 32")).Select
    Selection.OnAction = "Std_EingabeMaske.xlsm!Stunden_Eingabe_Maske"
    Range("H10").Select
End Sub
Das Problem, ich muss jeder Schaltfläche den Namen zuweisen, leider weiß ich nicht wie
die einzelnen Schaltflächen Nummeriert sind.
Gibt es anstatt: Array("Button 32")) active...
einzusetzen ?

mfg Walter

Betrifft: Habs selbst rausgefunden ...-)
von: Walter
Geschrieben am: 12.08.2020 16:50:52

Hallo,
habe dies eingesetzt:
Sub Std_Maske_zuweisen_u()
    Selection.OnAction = "_Std_EingabeMaske.xlsm!Stunden_Eingabe_Maske"
   ' Range("H8").Select
End Sub
klappt !
mfg walter

Beiträge aus dem Excel-Forum zum Thema "Makro zuweisen"