Eigenes Kontextmenü, Veränderung
24.02.2022 07:15:30
Flo
Ich habe in meiner Datei ein eigenes erstelltes Kontextmenü, beziehe die Daten aus einem gewissen Tabellenblatt. Dort stehen links die Kürzel und rechts die Daten.
Bisher werden im Kontextmenü nur die Namen angezeigt Bsp.: Mobiles Arbeiten. Ich möchte aber das es zum Beispiel so angezeigt wird : MA = Mobiles Arbeiten
Der Code lautet:
Public Sub CreateCommandBar()
Dim objCommandBar As CommandBar
Dim objCommandBarButton As CommandBarButton
Dim objName As Name
Dim lngIndex As Long
Call DeleteCommandBar
Set objCommandBar = CommandBars.Add(Name:=CONTEXT_MENU, _
Position:=msoBarPopup, Temporary:=True)
For lngIndex = 1 To 25
For Each objName In ThisWorkbook.Names
If objName.Name = "AbwK" & CStr(lngIndex) Then Exit For
Next
If Not objName Is Nothing Then
If Not IsError(Evaluate(objName.RefersTo)) Then
If Not IsEmpty(Range(objName.Name).Value) Then
Set objCommandBarButton = objCommandBar.Controls.Add(Type:=msoControlButton)
With objCommandBarButton
.Caption = Range(objName.Name).Value
.OnAction = "'Färbe """ & Replace$(objName.Name, "K", "Kk") & """'"
End With
End If
End If
End If
Next
Set objCommandBarButton = Nothing
Set objCommandBar = Nothing
Set objName = Nothing
End Sub
Ich hoffe das reicht an Information ansonsten, gerne Bescheid geben und danke für die Hilfe!VG
Flo