Herbers Excel-Forum - das 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