Hallo Leute,

ich versuche mit folgendem Code eine Datenvalidierungsliste (Dropdown) mit den Daten einer Range zu befüllen, was leider fehltschlägt.
Grund: Aktuell wird durch Formula1:="bereich.Address" die Dropdown-Liste mit dem Begriff "bereich.Address" gefüllt. Lasse ich die Anführungszeichen weg, so habe ich eine Liste mit dem Begriff "D2:D4". Beides nützt mir nichts ;)

Vielen Dank im Voraus und beste Grüße
Oliver

PS: Um der Frage zuvorzukommen, warum ich nicht einfach die Range "Hardcode": die Variable "bereich" soll sich später auf eine dynamische Range beziehen.

Sub Validierung()

Dim bereich As Range
Set bereich = Range("D2:D4")
Debug.Print (bereich.Address)

Range("B2").Validation.Delete
Range("B2").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="bereich.Address"
End Sub