das ersteTabellenblatt in meiner Exceltabelle (mit ca. 100 Tabellenbl.) ist ein Inhaltsverzeichnis mit Hyperlinks zum Aufrufen der einzelnen TabBlätter.
Das TabBlatt Inhaltsverzeichnis wird durch einen VBA-Code erstellt. Kommt ein neues TabBlatt hinzu, rufe ich mit Alt + F8, Makro auswählen, ausführen den Code auf.
Das TabBlatt Inhaltsverzeichis wird gelöscht und wieder neu, mit den akt. TabBlättern erstellt. Ferner wird mir durch den Code ein CommandButton erstellt. Funktioniert super!
Jetzt kommts:
Ich möchte den Code nicht mit Alt + F8 aufrufen, sondern durch das ClickEreignis auf den Button. Dies gelingt mir nicht!!
Wenn ich mit der rechten Maustaste direkt auf den Button klicke und das Makro zuweise, ist es nach 1 mal klicken auf den Button wieder weg, weil das ganze Sheet gelöscht und wieder neu erstellt wird. Hoffentlich benötige ich hierzu kein Klassenmodul.
Vielleicht könnt Ihr mir helfen.
Gruß, Hermann
VBA Teil:
With ActiveSheet.OLEObjects("CommandButton1").Object
.Caption = "Aktualisieren"
.BackColor = Val("&H" & "66FFFF") 'RGB(255,192,0)
.OnAction = "Inhaltsverzeichnis_erstellen"
End With