Combobox in Zelle einfügen
09.07.2015 09:55:36
Daniel
ich habe schon ein paar Tipps innerhalb des Forums gefunden. Doch jetzt bekomme ich beim Testen eine Fehlermeldung.
Ich möchte für jeden Eintrag automatisch die Combobox Funktion erstellen? Wo liegt mein Fehler?
With Worksheets("Nachrückkandidaten").Cells(x, 8)
.Delete
.Add Type:=3, AlertStyle:=1, Operator:=1, Formula1:="Deutschland,Österreich,Schweiz"
.IgnoreBlank = True
.InCellDropdown = True
.ErrorTitle = "Eingabefehler"
.ErrorMessage = "Wählen Sie einen Wert aus dem Zelldropdown."
.ShowError = True
End With
Ab der Zeile 3 beginnt der Fehler. Vielen Dank im Voraus.
LG
Daniel
Anzeige