Herbers Excel-Forum - das Archiv

Kontex-Menue

Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
 Bild