Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kontex-Menue

Kontex-Menue
14.07.2005 19:04:57
Erich
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kontex-Menue
14.07.2005 19:36:57
Nepumuk
Hi Erich,
was meinst du mit mehreren Aktionen?
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: Kontex-Menue
14.07.2005 19:43:26
Erich
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
AW: Kontex-Menue
14.07.2005 19:48:44
Nepumuk
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
Anzeige
AW: Kontex-Menue
14.07.2005 19:52:48
Erich
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
AW: Kontex-Menue
14.07.2005 19:58:27
Nepumuk
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
Anzeige
AW: Perfekt
14.07.2005 20:04:38
Erich
Hallo Nepumuk
Tausend Dank
Gnauso hatte ich mir das gedacht
Nochmals Danke
Gruss Erich

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige