PPP DropDown
19.02.2020 09:04:39
JD
da ich die Aufgaben eines Kollegen übernehmen soll - der krankheitsbedingt lange ausfallen wird, werde ich mich nach und nach in die VBA-Welt einarbeiten. Ich hoffe auf euer Verständnis, falls ich meine Frage nicht korrekt formuliere und versuche es mal hiermit:
Ich möchte in PowerPoint ein DropDown Feld mit 5 Auswahlpunkten administrieren. Es soll nichts _ weiter passieren, als die angeklickte Auswahl im Fenster zu übernehmen. Nach vielem recherchieren bin ich nun zu folgendem Code gelangt:
Sub ComboBox1_GotFocus()
If ComboBox1.ListCount = 0 Then AddDropDownItems
End Sub
Sub AddsDropDownItems()
ComboBox1.AddItem "Keine Auswahl"
ComboBox1.AddItem "Auswahl 1."
ComboBox1.AddItem "Auswahl 2."
ComboBox1.AddItem "Auswahl 3."
ComboBox1.AddItem "Auswahl 4."
ComboBox1.ListRows = 5
End Sub
Beim Abspielen des Codes erhalte ich
"Fehler beim Kompilieren: Sub oder Function nicht definiert".
Trotz lesen vieler Beiträge und nachlesen über Deklaration, bin ich einfach noch zu ahnungslos,
wie ich hier was genau deklarieren muss um es korrekt zu machen.
Ich bin sehr dankbar für eure Hilfe und wünsche einen schönen Tag!
Liebe Grüße
Janina