String zu lang

[dark-lost-soul]

Hallo,

muss mittels VBA mehrere Gültikkeitslisten erstellen.

Private Sub GenerateList(pos As String, inhalt As String, seite As String)

    Sheets(seite).Select

    Range(pos).Select

    Selection.NumberFormat = "@"

    With Selection.Validation

        .Delete

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

        xlBetween, Formula1:=inhalt

        .IgnoreBlank = True

        .InCellDropdown = True

        .InputTitle = ""

        .ErrorTitle = ""

        .InputMessage = ""

        .ErrorMessage = ""

        .ShowInput = True

        .ShowError = True

    End With

End Sub

Das funktioniert eigentlich auch wunderbar nur das in einem Fall nicht alles in die Liste kommt.

Da die länge einer VBA Zeile beschränkt ist. Habe gedacht es hilft wenn ich einfach 3 strings benutzte und die aneinanderhänge was leider nicht geholfen hat.

Hat irgendjemand eine Idee wie ich das Problem lösen könnte?

Für eure Hilfe Danke ich euch im Vorraus

gruß

dark-lost-soul

[MartinSt]

Hallo,

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

        xlBetween, Formula1:=inhalt

ist denn diese Zuweisung mit := unter VBA richtig ??

Gruß Martin

[dark-lost-soul]

Ich denke mal schon habs so in vielen foren gelesen

aber ich hab das problem jetzt anders gelöst hab den string ein bissl beschnitten und es wird dann wenn der jeweilige eintrag ausgewählt wurde wieder drangehängt

aber trotzdem danke für die hilfe