Ich bin es mal wieder. Diesmal habe ich das problem, dass ich eine Dropdownliste per VBA erstellen will, die sich je nach vorheriger Eingabe aber ändert soll!
Hersteller: *Dropdown der Hersteller*
Modell: *Dropdown aller hinterlegten Modelle des ausgewählten Herstellers*
Nabenhöhe: *Dropdown der möglichen Höhe des ausgewählten Modells*
Da ich die Modelle der Hersteller einfach in eine Tabelle schreiben konnte, hab ich es mit folgenden Code geschafft die Dropdownliste für die Modelle zu erstellen:
If Cells(3, 4) = "Enercon" Then
Range("D5").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="='Übersicht Windräder'!$A$2:$A$10"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Habe dann jeweils für die 5 Hersteller den Bereich umgeschrieben.
Da es aber weit über 50 Modelle der Hersteller gibt, welche alle verschiedenen mögliche Bauhöhen haben, ist mir das dafür aber zu umständlich und zu aufwendig.
Ist es Möglich diese Dropdownliste vollkommen individuell zu erstellen? Also mit
Range(Cells(Zeile X,Spalte X),Cells(Zeile Y, Spalte Y))
anstatt
"='Übersicht Windräder'!$A$2:$A$10"
Die verschiedenen Werte für die Zeilen und Spalten ermittel ich vorher mit einer For-Schleife.
Ich hoffe ich habe verständlich genug ausgedrückt und ihr könnt mir da helfen!
MfG
Fabi