Markos aus Dropdownfeld ausführen

02/04/2008 - 09:42 von Oliver Hohl | Report spam
Hallo Newsgroup

In einer Excel02 möchte ich eine Auswahl über ein Dropdownfeld steuern. Das
Dropdownfeld hat 13 Auswahlmöglichkeiten und nach der Auswahl soll ein Makro
gestartet werden (13 Auswahlen = 13 Makros => jede Auswahl hat ihren eigenen
Makro).

Bei einem Formularfeld kann ich nur ein Makro hinterlegen... Ich vermute,
dass man dass mit einem Steuerelement lösen kann, aber die OH hat mir leider
nicht weitergeholfen.

Kann mir jemand einen Tipp geben?

Danke und viele Grüsse
Oliver Hohl
 

Lesen sie die antworten

#1 stefan onken
02/04/2008 - 11:15 | Warnen spam
On 2 Apr., 09:42, Oliver Hohl
wrote:
Hallo Newsgroup

In einer Excel02 möchte ich eine Auswahl über ein Dropdownfeld steuern. Das
Dropdownfeld hat 13 Auswahlmöglichkeiten und nach der Auswahl soll ein Makro
gestartet werden (13 Auswahlen = 13 Makros => jede Auswahl hat ihren eigenen
Makro).

Bei einem Formularfeld kann ich nur ein Makro hinterlegen... Ich vermute,
dass man dass mit einem Steuerelement lösen kann, aber die OH hat mir leider
nicht weitergeholfen.

Kann mir jemand einen Tipp geben?

Danke und viele Grüsse
Oliver Hohl



hallo Oliver,
du kannst ein Zellen-Dropdownfeld mit Daten/Gültigkeit/Liste erstellen
und auf die Änderung dieses Dropdown reagieren mit dem Ereignis
Worksheet_Change.
Angenommen, du hast das Dropdownfeld in A1, dann müsste in das
Codemodul der Tabelle (rechtsklick Register, linksklick Code anzeigen)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Application.Run Range("A1").Text
End Sub

Du kannst auch das Dropdown (= Kombinationsfeld) aus der Formular-
Symbolleiste nutzen. Dazu weisst du diesem ein Makro zu, dass dann das
eigentliche Makro aufruft.

Sub Kombifeld()
With ActiveSheet.Shapes(Application.Caller).DrawingObject
Application.Run Range(.ListFillRange).Cells(.Value).Value
End With
End Sub

Dann gibt es noch das Dropdown (Kombinationsfeld) aus der
Steuerelement-toolbox Symbolleiste. Die Auswahlmöglichkeieten kannst
du als Zellbereich vorgeben ( Eigenschaft ListFillRange) oder per
Makro zuweisen (AddItem). Das Steuerelement hat das Ereignis Change,
dass du für den Start des eigentlichen Makro nutzt:

Private Sub ComboBox1_Change()
Application.Run ComboBox1.Value
End Sub

Gruß
stefan

Ähnliche fragen