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