Servus,
ich möchte per VBA eine Dropdownliste in einer Zelle erstellen. Als "Quelle" für die Dropdownliste möchte ich eine vorher von mir erstelle Tabelle verwenden. Wenn ich die Dropdownliste manuell per Datenüberbrüfung erstelle, wird der Bereich der Quelle autamatisch erweitert, wenn ich die Tabelle erweiter. Das geht aber nicht wenn ich dir Dropdownliste per VBA erstelle.
Wie geht das?
Das ist mein Code:
With Worksheets("Tabelle1").Cells(2, 6).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$B$4:$B$9"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Ich hoffe ihr könnt mir helfen.
|