Hallo matzeerwin.
Wie das mit einem Frame gehen soll, da habe ich momentan keine Vorstellung davon. Hier aber etwas, das Dich möglicherweise interessieren könnte: Eine benutzerdefinierte Symbolleiste
Wenn Du das Beispiel ausprobieren möchtest, kannst Du folgenden Code ins Codefenster von „DieseArbeitsmappe“ kopieren:
Private Sub Workbook\_Activate()
Application.CommandBars("MeineEigene").Enabled = True
End Sub
Private Sub Workbook\_BeforeClose(Cancel As Boolean)
WorkbookClose = True
End Sub
Private Sub Workbook\_Deactivate()
Application.CommandBars("MeineEigene").Enabled = False
If WorkbookClose = True Then
Application.CommandBars("MeineEigene").Delete
End If
End Sub
Private Sub Workbook\_Open()
Toolbar
End Sub
Danach müßtest Du noch ein Modul einfügen, in das der nachstehende Code gehört:
Public WorkbookClose As Boolean
Public tbrAppName As CommandBar
Public mnu1 As CommandBarControl
Public mnu11 As CommandBarButton
Public mnu12 As CommandBarButton
Public mnu2 As CommandBarControl
Public mnu21 As CommandBarButton
Public mnu22 As CommandBarButton
Sub Toolbar()
Set tbrAppName = CommandBars.Add(Name:="MeineEigene", Position:=msoBarLeft, Temporary:=False)
With tbrAppName
Set mnu1 = .Controls.Add(Type:=msoControlPopup, Before:=.Controls.Count + 1)
With mnu1
.Caption = "Menü1"
Set mnu11 = .Controls.Add(Type:=msoControlButton, ID:=1851)
mnu11.Style = msoButtonCaption
mnu11.Caption = "Button1.1"
mnu11.OnAction = "Button11"
Set mnu12 = .Controls.Add(Type:=msoControlButton, ID:=1851)
mnu12.Style = msoButtonCaption
mnu12.Caption = "Button1.2"
mnu12.OnAction = "Button12"
End With
Set mnu2 = .Controls.Add(Type:=msoControlPopup, Before:=.Controls.Count + 1)
With mnu2
.Caption = "Menü2"
Set mnu21 = .Controls.Add(Type:=msoControlButton, ID:=1851)
mnu21.Style = msoButtonCaption
mnu21.Caption = "Button2.1"
mnu21.OnAction = "Button21"
Set mnu22 = .Controls.Add(Type:=msoControlButton, ID:=1851)
mnu22.Style = msoButtonCaption
mnu22.Caption = "Button2.2"
mnu22.OnAction = "Button22"
End With
.Visible = True
End With
End Sub
Sub Button11()
MsgBox "Button 1.1 wurde geklickt"
End Sub
Sub Button12()
MsgBox "Button 1.2 wurde geklickt"
End Sub
Sub Button21()
MsgBox "Button 2.1 wurde geklickt"
End Sub
Sub Button22()
MsgBox "Button 2.2 wurde geklickt"
End Sub
Dann die Datei einmal speichern, Excel beenden und die Datei wieder öffnen.
Es erschein dann eine links fixierte Symbolleiste mit 2 Menüs und 4 Buttons.
Vielleicht kannst Du damit ja etwas anfangen.
VG
Carsten
