Wechsel von VBA Menüleiste zu Ribbon mit Übergabe
11.08.2017 23:09:43
VBA
ich stehe vor einem Problem. Möchte die VBA Menüleiste in die Ribbon Leiste von Excel 2013 übertragen.
Ich habe bei der alten VBA Menüleiste zb. folgenden Menüpunkt.
With .Controls.Add
.Height = Hheight
.FaceId = 2105
.Caption = "Auftrag Kunde"
.OnAction = "'Nachdrucken ""Auftrag_Kunde""'"
.Tag = .Caption
End With
Sub Nachdrucken(nachdruck_uebergabe)
'Dim nachdruck_uebergabe As String
Application.ScreenUpdating = False
Version = Range("Version")
If nachdruck_uebergabe = "Auftrag_Kunde" Then
If GeraeteArt = "Akkuschrauber" Or GeraeteArt = "Bohrmaschine" Then
Windows("Ausdruck.xls").Activate
Sheets("Sheet 2").Select
Din5_Seite2
Else
Windows("Ausdruck.xls").Activate
Sheets("Sheet 3").Select
Call LPZ_Seite2und3
End If
End If
Wenn ich via "Menüband anpassen" ein Menüpunkt "Makro" hinzufügen finde ich keine Möglichkeit dem Makro "Nachtruck" zb. "Auftag_Kunde mitzugeben.
Hat jemand eine idee wie ich das machen kann?
LG Sabbel