Validation-Objekt
AlexO
Problem:
ich erstelle in Excel für eine Zelle eine Gültigkeitsliste deren Werte bei der definition durch Semikolon getrennt werden (müssen). Andere als Semikolon gültige Trennzeichen konnte ich nicht finden.
Wenn ich nun in VBA die validierungs Werte in eine neue Zelle übernehmen möchte (siehe Beispiel-code) werden ALLE Felder der Liste in EINER Zeile angezeigt. Ich glaube gefunden zu haben, daß in VBA der Feldtrenner einer Auswahlliste nicht Semikolon sondern Komma ist.
Frage:
Gibt es eine Möglichkeit den Delimiter (Feldtrenner) einzustellen? Oder gibt es eine andere (bessere) Lösung?
Beispielcode (mein Problemkind) - In "F72" .Formular1 steht "test in QLL;to be de-implemented;obsolete" - mit den Semikolons :-((
wsQLL.Range("F73").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=wsQLL.Range("F72").Validation.Formula1
end With
~f~
Beispielcode (aufgezeichnetes Macro mit MANUELL angepasstem Feldtrenner - in der Original Formula1 stand "test in QLL;to be de-implemented;obsolete")
~f~
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="test in QLL,to be de-implemented,obsolete"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Grüße von
Alex
Anzeige