Über Formular-Kombinationsfeld verschiedene Makros
16.10.2004 17:49:57
Hans
ich habe diese Frage bereits heute früh (Samstag, 16.10.04) in www.spotlight.de gepostet.
Daraufhin habe ich von "Manu" untenstehenden Lösungsansatz bekommen. Sie möchte, dass ich die Frage nun hier in dieses Forum stelle.
Die ursprüngliche Excel-Frage lautete:
Wie kann ich über ein Formular-Kombinationsfeld verschiedene Makros starten?!
Dazu schrieb mir dann "Manu":
... das geht z.B. so:
Option Explicit
Sub Dropdown1_BeiÄnderung()
Dim dd As Object
Set dd = ActiveSheet.Shapes("Drop Down 1")
Select Case dd.ControlFormat.ListIndex
Case 1: Call Makro01
Case 2: Call Makro02
Case 3: Call Makro03
'usw................
Case Else: Call Makro04
End Select
End Sub
'-------------------------------------------------
Sub Makro01()
MsgBox "Erstes Makro"
End Sub
'-------------------------------------------------
Sub Makro02()
MsgBox "Zweites Makro"
End Sub
'-------------------------------------------------
Sub Makro03()
MsgBox "Drittes Makro"
End Sub
'-------------------------------------------------
Sub Makro04()
MsgBox "Viertes Makro"
End Sub
'-------------------------------------------------
Gruß Manu
Nun habe ich aber das Problem, dass es trotzdem bei mir nicht geht. Irgend etwas mache ich falsch. Sei es der Name des Formular-Objekts oder aber irgend eine Schreibweise, oder irgend etwas anderes. Ich weis es nicht.
Am schönsten wäre, wenn man irgendwo eine Beispieldatei downloaden könnte oder man mir ein e-mail an meine e-mail-Adresse 1016-165@online.de schickt. Dann könne ich noch mal akribisch nach den Fehler suchen, den ich mache.
Vielleicht kann mir jemand, (vielleicht wieder "Manu"?!) helfen?!
Vielen Dank!
Hans Porzel
46 Jahre
aus Oberfranken