wusste ich doch, dass ich da mal was von Lordchen bekommen habe. In diesem Projekt ging es darum, ein Excel-Sheet in eine bestehende Access-Datenbank zu kopieren. Der Button wird per Code erzeugt. Nachstehend der Code, den Du Dir eben für Deine Bedürfnisse anpassen musst:

Private Sub Auto_Open()
    Dim myCmdBar As CommandBar
    Dim myButton As CommandBarButton
 
    Set myCmdBar = Application.CommandBars.Add(Name:="CopyExcel2Access", _
      Temporary:=True)
    Set myButton = myCmdBar.Controls.Add(msoControlButton)
 
    With myButton
        .BuiltInFace = True
        .Style = msoButtonIconAndCaption
        .TooltipText = "Konvertiert die Tabelle in eine Access Tabelle"
        .FaceId = 548
        .OnAction = "CopyExcel2Access"   ' hier wird die entsprechende Sub 
        ' aufgerufen
        .Visible = True
    End With
 
    myCmdBar.Visible = True
 
End Sub

Ich hoffe, dass Dir das weiterhilft.

cu
Moni