title image


Smiley Re: Eigene Menüleiste
Hallo MigoeUwe hat das schon richtig erklärt hier mal den Cod einschl. erstellung symbolleiste und Fehlerbehandlung wenn die datei mit der Symbolleiste mehrmals aufgemacht wird. Die Symbolleiste heißt "Preisliste1"Private Sub Workbook_Open() Dim cb As CommandBar Dim CBC As CommandBarButton Dim I% On Error Resume Next Set cb = Application.CommandBars.Add(Name:="Preisliste1", _ temporary:=True, Position:=msoBarTop) On Error GoTo 0 If Application.CommandBars("Preisliste1").Visible = False Then cb.Visible = True For I = 1 To 15 Set CBC = cb.Controls.Add(Type:=msoControlButton) With CBC .FaceId = 70 + I .Width = 50 ' Breite der Schalter .Style = msoButtonCaption ' Text auf Schaltfläche Select Case I Case 1 .Caption = "IRB" ' Text auf Schaltfläche .OnAction = "Roboter" ' Makroname im Modul das ausgeführt wird .TooltipText = "Roboter einfügen" ' Text der angezeigt wird wenn Maus auf Schalter Case 2 .Caption = "Ent." .OnAction = "Entlader" .TooltipText = "Entlader einfügen" Case 3 .Caption = "LPM" .OnAction = "LPM" .TooltipText = "LPM einfügen" Case 4 .Caption = "Bel." .OnAction = "Belader" .TooltipText = "Belader einfügen" Case 5 .Caption = "PTS" .OnAction = "PTS" .TooltipText = "PTS Einfügen" Case 6 .Caption = "KTS" .OnAction = "Gebindetransport" .TooltipText = "Gebindetransport einfügen" Case 7 .Caption = "S.S." .OnAction = "SS" .TooltipText = "Schalt- und Steuerausrüstung einfügen" Case 8 .Caption = "Aus." .OnAction = "Auspacker" .TooltipText = "Auspacker einfügen" Case 9 .Caption = "Ein." .OnAction = "Einpacker" .TooltipText = "Einpacker einfügen" Case 10 .Caption = "ET60.1" .OnAction = "ET601" .TooltipText = "ET 60.1 einfügen" Case 11 .Caption = "ET 85"' .OnAction = "ET85"' .TooltipText = "ET 85 einfügen" .Enabled = False Case 12 .Caption = "Kopfpa." .OnAction = "Kopfpalette" .TooltipText = "Kopfpalettenaufleger einfügen" Case 13 .Caption = "NGA" .OnAction = "NGA" .TooltipText = "Neuglasabheber einfügen" Case 14 .Caption = "NGS" .OnAction = "NGS" .TooltipText = "Neuglasabschieber einfügen" Case 15 .Caption = "Zu." .OnAction = "Zukauf" .TooltipText = "Zukauf einfügen" End Select End With Next I End IfEnd SubPrivate Sub Workbook_Deactivate() On Error Resume Next If Application.CommandBars("Preisliste1").Visible = True Then Application.CommandBars("Preisliste1").Visible = False End If On Error GoTo 0End SubPrivate Sub Workbook_Activate() On Error GoTo neu If Application.CommandBars("Preisliste1").Visible = False Then Application.CommandBars("Preisliste1").Visible = True End If On Error GoTo 0 Exit Subneu: Workbook_Open On Error GoTo 0End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("Preisliste1").Delete On Error GoTo 0End SubGruß Hajo

 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: