Excel Dropdownliste einzelne Makros zuweisen

Computer: Software & Programmierung Office Software
#1

Hallo liebe Experten,

ich bin sozusagen blutiger VBA-Anfänger. Ich hoffe Ihr könnt mir helfen:

Ich habe ein Kombinationsfeld (Drop-Down) normal über Excel eingefügt und auch verschiedene Werte zum anklicken reingeladen.

Nun möchte ich, dass bei dem Klick auf das Feld z.B. „Region1“ im Drop-Down-Menü das Marko „Region1“ abläuft.

Klicke ich auf auf das Feld „Februar“, so soll das Makro „Februar“ laufen etc.

Gibt es da eine simple Lösung, bei der man nicht die meiste Ahnung braucht?

Oder eine Andere Idee?

Klicke ich auf

#2

Hallo GTE

Hatte mal das gleiche Problem.

Evt. Hilft Dir das weiter:
http://www.office-loesung.de/ftopic206726_0_0_asc.php

Gruss
Flexo

#3

Vielen Dank für die schnelle Antwort.

Muss leider gestehen, dass ich nicht weiß, was ein Change-Ereignis ist und was für Prozeduren gemeint sind, geschweigedenn, wo ich das hinschreiben soll, sorry. Leider Anfänger.

Gibts da eine einfachere Erklärung?

Vielen Dank.

#4

Probier mal diesen Code:
Das Dropdown Menu muss auf Position A1 in Tabelle1 sein. Den Code kopierst Du im VB Editor (in Excel - Alt+F11) in die Tebelle 1 rein.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Fehler

Application.EnableEvents = False

If Target.Address = „$A$1“ Then
Select Case LCase(Target.Value)

Case „makro 1“
MsgBox („Jetzt läuft Makro 1“)

Case „makro 2“
MsgBox („Jetzt läuft Makro 3“)

Case „makro 3“
MsgBox („Jetzt läuft Makro 3“)

Case „makro 4“
MsgBox („Jetzt läuft Makro 4“)

Case „makro 5“
MsgBox („Jetzt läuft Makro 5“)

End Select
End If

Fehler:
Application.EnableEvents = True
End Sub

Flexo

#5

Vielen Dank für Deine Hilfe Flexo aber…

da funktioniert leider trotzdem nichts.

Ich füge einfach ein Kombinationsfeld aus den Steuerelementen (Dropdown-Liste) in Tabelle 1 ein, aber wie kann ich das auf A1 legen?

Ich weise dem Feld die Namen zu (makro 1; makro 2; makro 3 etc…)die aus einer anderen Tablle geladen werden?

Alt+F11 und einfach hineinkopieren, aber muss man es dann nicht noch irgendwie wie ein Makro aktivieren oder liegt das dann nur im Hintergrund?

Vielen lieben Dank…
GTE

#6

Wenn Du möchtest schicke ich Dir eine Bsp. Mappe zu.

#7

ok, wie machen wir das?

#8

ok, wie machen wir das?

per Mail ?

#9

Muss leider gestehen, dass ich nicht weiß, was ein
Change-Ereignis ist und was für Prozeduren gemeint sind,
geschweigedenn, wo ich das hinschreiben soll, sorry. Leider
Anfänger.

Hallo GTE,

Ansicht–Symbolleisten—Steuerelemettoolbox.
Ziehe die Maus langsam über die Symbolleiste, bei „Kombinationsfeld“ klickst du auf das Symbol und „ziehst“ es dir im Blatt auf.

Dann klickt du doppelt darauf, du bist dann gleich im richtigen Modul und siehst das Gerüst des Change-Ereignisses.

Das veränderst du dahingehend:

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

Nun machst du im Editor links einen Doppelklick auf „DieseArbeitsmappe“ und fügst dort ein:

Private Sub Workbook_Open()
Worksheets(„Tabelle1“).ComboBox1.List = _
Array(„Makro1“, „Makro2“, „Makro3“, „Makro4“, „Makro5“)
End Sub

Die makronamen mußt du natürlich anpassen.

Dann schließt du den Editor, dann die Mappe. Nun die Mappe neu öffnen…

Gruß
Reinhard

#10

[email protected]

#11

Stille Post?

Wenn Du möchtest schicke ich Dir eine Bsp. Mappe zu.

Hallo,

es gibt doch FAQ:2606

Gruß
Reinhard

#12

Stimmt. Das nächste mal so!

#13

Suuuuper, das klappt.

Jetzt musst du mir nur noch verraten, wie Du das Dropdown-Menü eingebettet hast und dann hast Du mir völlig neue Möglichkeiten in meiner „sehr kleinen“ Excelwelt gegeben.

Danke!!!

#14

Super.

Das machst Du über Data - Gültigkeit.
Dort noch List wählen, den Range bestimmen und Fertig.

Vergiss nicht das Makro anzupassen.

Gruss
Flexo

#15

auch dir danke reinhard. bin neu hier :wink:

#16

und da soll mal einer drauf kommen…

vielen, vielen dank.
weiter so…