Viele Schaltflächen per Makro zuweisen
01.11.2016 17:52:03
Sascha
ich bin gerade dabei, eine ganz einfache Kundendatenbank für einen Freund anzulegen.
Diese hat in einer Tabelle 1000 Zeilen mit je einem Button. Jeder Button soll ein anderes Makro mit fortlaufender Nummer im Namen ausführen.
Mit dem Makrorekorder habe ich für 10 Schaltflächen folgenden Code generiert:
[code]
Sub test2()
' test2 Makro
ActiveSheet.Shapes.Range(Array("Button 9")).Select
Selection.OnAction = "DB_Eintrag001"
ActiveSheet.Shapes.Range(Array("Button 1052")).Select
Selection.OnAction = "DB_Eintrag002"
ActiveSheet.Shapes.Range(Array("Button 1053")).Select
Selection.OnAction = "DB_Eintrag003"
ActiveSheet.Shapes.Range(Array("Button 1054")).Select
Selection.OnAction = "DB_Eintrag004"
ActiveSheet.Shapes.Range(Array("Button 1055")).Select
Selection.OnAction = "DB_Eintrag005"
ActiveSheet.Shapes.Range(Array("Button 1056")).Select
Selection.OnAction = "DB_Eintrag006"
ActiveSheet.Shapes.Range(Array("Button 1057")).Select
Selection.OnAction = "DB_Eintrag007"
ActiveSheet.Shapes.Range(Array("Button 1058")).Select
Selection.OnAction = "DB_Eintrag008"
ActiveSheet.Shapes.Range(Array("Button 1059")).Select
Selection.OnAction = "DB_Eintrag009"
ActiveSheet.Shapes.Range(Array("Button 1060")).Select
Selection.OnAction = "DB_Eintrag010"
End Sub
[/code]
Wie kann ich nun den jeweiligen [i]Button XXXX[/i] zu seinem passenden [i]DB_Eintragyyy[/i] durchnummerieren, ohne es von Hand eintippen zu müssen. Es sind immerhin noch 900 Schaltflächen :D
Ich schlage mich seit Stunden mit einer Lösung durch Variablen und einer Schleife herum, aber ich muss mir alles über Suchmaschinen "zusammenbasteln" und nichts funktioniert nur im Ansatz.
Ich hoffe daher, dass jemand in diesem Forum ein Herz für "copy/paste"ler hat und mir einen fertigen Code zaubern kann *gg*
LG Sascha