ich möchte folgenden Code ausführen lassen und nach dem ersten Durchlauf die Range verändern und den Code erneut mit der neuen Range ausführen lassen. Ich hab dazu ein Dropdown erstellt in welchem nur die Werte 1 - 6 vorkommen können, sprich maximal sollen 5 Anpassungen der Range erfolgen inklusive 6 Ausführungen.
Dim ValidationList(4) As String
ValidationList(0) = "A"
ValidationList(1) = "B"
ValidationList(2) = "E"
ValidationList(3) = "T"
With Range("Q59").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:= _
xlEqual, Formula1:=Join(ValidationList, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Wie ihr seht soll die erste Ausführung in der Range("Q59") erfolgen. Wenn zum Beispiel jetzt die 3 selektiert wurde im Dropdown soll nach dem ersten Durchlauf die Range für den zweiten Durchlauf auf Range("Q60") und beim dritten Durchlauf auf Range("Q61")angepasst werden.Könnt ihr mir bitte weiterhelfen wie ich das Ganze angehen soll? Bisher habe ich es lediglich geschafft den im Dropdown selektierteh Wert an eine Variable zu übergeben und könnte mir Vorstellen den bisher festgelegten Range durch eine Range-Variable zu ersetzen welche durch eine Schleife entsprechend der Selektion im Dropdown hochlaufen muss.
Wäre echt nett wenn mir jemand einen Denkanstoß geben kann und Entschuldigung für die wohlmöglich dumme Frage :o(
mfG
Robert