Auswahlliste mit variablen

Hallo,

ich möchte in VBA eine Liste generieren... möchte hier aber nicht den Umweg über die Tabelle nehmen

das hier Funktioniert:

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="Wert 1;Wert 2"  
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""  
        .ErrorTitle = ""  
        .InputMessage = ""  
        .ErrorMessage = ""  
        .ShowInput = True
        .ShowError = True
    End With

wenn ich aber statt

Formula1:="Wert 1;Wert 2"

z.B.

variable = "Wert 1;Wert 2"
Formula1:=variable

verwende geht das nicht?

wie geh ich das richtig an???

Danke

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 316879

Url: https://administrator.de/forum/auswahlliste-mit-variablen-316879.html

Ausgedruckt am: 22.04.2025 um 13:04 Uhr

3 Kommentare

Neuester Kommentar

gefunden habe ich folgendes:

Formula1:=Join(MyList, ",")

trifft sich gut, da ich auch ein "Array" zu verarbeiten habe...

allerdings weder mit "," noch mit ";" kann er das verarbeiten

"Anwendungs- oder objektdefinierter Fehler"

Zitat von @94451:

variable = "Wert 1;Wert 2"

Ich kann es gerade nicht testen, aber kann es sein, dass das eher so aussehen muss:?

variable = "'Wert 1';'Wert 2';'Wert 3'"

Gruß Krämer

Servus.
Also hier funktioniert das absolut problemlos:

Dim mylist As Variant
mylist = Array("Wert1", "Wert2", "Wert3")  
With Selection
        .Validation.Delete
        .Validation.Add xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(mylist, ",")  
End With