Microsoft Excel

Herbers Excel/VBA-Archiv

Kontex-Menue

Betrifft: Kontex-Menue von: Erich
Geschrieben am: 14.07.2005 19:04:57


Hallo und guten Abend,

Wie kann ich den Code erweitern, um mehrere Actionen auszuführen ?
Habe auch nach längeren suchen im Archiv nichts gefunden.

Sub editcontex()
Dim oBtn As CommandBarButton
With Application.CommandBars("cell")
Do While .Controls.Count > 0
.Controls(1).Delete
Loop
Set oBtn = .Controls.Add
End With
With oBtn
.Caption = "Fahrzeug u. Namenslisten "
.OnAction = "List"
End With

End Sub


Für einen Tipp wäre ich sehr froh.

Gruss Erich
  


Betrifft: AW: Kontex-Menue von: Nepumuk
Geschrieben am: 14.07.2005 19:36:57

Hi Erich,

was meinst du mit mehreren Aktionen?

Gruß
Nepumuk
Excel & VBA – Beispiele


  


Betrifft: AW: Kontex-Menue von: Erich
Geschrieben am: 14.07.2005 19:43:26

Hallo Nepumuk

Zur Zeit rufe ich damit eine UF auf, auf der dann
6 Butten sind, mit denen ich weitere Uf aufrufe.

Ich möchte den Weg über die erste UF einsparen und die Sache
übersichtlicher machen.
Ich hoffe Du verstehst was ich meine.

Gruss Erich


  


Betrifft: AW: Kontex-Menue von: Nepumuk
Geschrieben am: 14.07.2005 19:48:44

Hi Erich,

nicht so ganz. Würden nicht mehrere Buttons in dem Popup helfen? Ich frag mal so ins blaue hinein, weil ich nicht weiß, welche Aktionen ausgeführt werden sollen.

Gruß
Nepumuk
Excel & VBA – Beispiele


  


Betrifft: AW: Kontex-Menue von: Erich
Geschrieben am: 14.07.2005 19:52:48

Hallo Nepumuk
Meine Erklärungsversuche (reden wir nicht darüber )

Dein Vorschlag ist genau das was ich haben möchte.
Kannst Du mir einen Tipp geben wie ich den Code
erweitern muss.

Gruss Erich


  


Betrifft: AW: Kontex-Menue von: Nepumuk
Geschrieben am: 14.07.2005 19:58:27

Hi Erich,

Bitteschön:

Sub editcontex()
    Dim oBar As CommandBar
    Dim oBtn As CommandBarButton
    Set oBar = Application.CommandBars("cell")
    Do While oBar.Controls.Count > 0
        oBar.Controls(1).Delete
    Loop
    Set oBtn = oBar.Controls.Add
    With oBtn
        .Caption = "Fahrzeug u. Namenslisten "
        .OnAction = "List"
    End With
    Set oBtn = oBar.Controls.Add
    With oBtn
        .Caption = "Fahrzeug u. Namenslisten 1"
        .OnAction = "List1"
    End With
    Set oBtn = oBar.Controls.Add
    With oBtn
        .Caption = "Fahrzeug u. Namenslisten 2"
        .OnAction = "List2"
    End With
    Set oBtn = oBar.Controls.Add
    With oBtn
        .Caption = "Fahrzeug u. Namenslisten 3"
        .OnAction = "List3"
    End With
    Set oBar = Nothing
    Set oBtn = Nothing
End Sub

Gruß
Nepumuk
Excel & VBA – Beispiele


  


Betrifft: AW: Perfekt von: Erich
Geschrieben am: 14.07.2005 20:04:38


Hallo Nepumuk

Tausend Dank
Gnauso hatte ich mir das gedacht

Nochmals Danke

Gruss Erich