Dropdown-Liste erstellen

[excl50]

Hallo zusammen,

ich möchte mit VBA Dropdown-Listen erstellen und der Quellcode dazu sieht folgendermaßen aus:

Sub Makro1()


    With Tabelle1.Range("B5").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Formula1:="=$A$1:$A$10"
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
End Sub

Nun ist das Problem, dass ich für den Bereich bei Formula1 Variablen einsetzten möchte, welche die Zeilen und Spalten ändern.

Sowie ich es kenne geht dies nur über Cells(Zeile, Spalte). Aber wie kann man diesen Cells-Bezug bei Formula1 einbauen?

[schauan]

Hallöchen,

eventuell z.B.
Cells(Zeile, Spalte).Address
Range(Cells(Zeile1, Spalte1),Cells(Zeile2, Spalte2)).Address

[excl50]

Klappt nicht ganz. Dann werden die Adressen der Zellen im Dropdown angezeigt, aber es sollen ja die Inhalte dieser Zellen zur Verfügung stehen.

Wenn man statt .Adress, ein .Value setzt kommt eine Fehlermeldung.

[Kuwer]

Hallo,

wie hast Du es denn genau geschrieben?

Gruß Uwe

[excl50]

Hallo Kuwer,

so:


Sub Makro1()



    With Tabelle1.Range("B5").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Formula1:="Range(Cells(1, 1),Cells(10, 1))"
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
End Sub

[schauan]

Hallöchen,
btte nur so, wie es in meinem Beitrag steht Formula1:= ... und dann ohne Anführungszeichen und mit .Address

[excl50]

ohne Anführungszeichen kommt eine Fehlermeldung. Objekt unterstüzt diese Eigenschaft oder Methode nicht.

[Kuwer]

Hallo,

so ist es richtig:

Sub Makro1()

   With Tabelle1.Range("B5").Validation

       .Delete

       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _

       Formula1:="=" & Range(Cells(1, 1), Cells(10, 1)).Address

       .IgnoreBlank = True

       .InCellDropdown = True

   End With

End Sub

Gruß Uwe

[excl50]

Tausend Dank Uwe