Re: Kontextmenü
22.01.2003 14:37:09
Bernd Held
Hallo FRitz,mit dem folgenden Makro kanst du dir alle gängigen Kontextmenüs im Direktberiech von Excel ausgeben lassen. Eines davon sollte das Gesuchte sein.
Sub ArtenVonLeisten()
Dim i As Integer
Dim s As String
For i = 1 To CommandBars.Count
Select Case CommandBars(i).Type
Case 0
s = "Symbolleiste"
Case 1
s = "Menüleiste"
Case 2
s = "Kontextmenü"
Case Else
s = "nicht ermittelbar"
End Select
if s=2 then Debug.Print i & " --> " & CommandBars(i).Name & " --> " & s
Next i
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de