Vba-Validation Liste klappt nicht
29.09.2007 16:49:00
Reinhard
wenn ich manuell A1 auswähle, dann Daten--Gültigkeit--Liste, dann
a;b;c
eingebe, erhalte ich wie gewünscht später die 3-zeilige Auswahl :
a
b
c
Leider, wenn ich die gleiche Liste mittels Vba eintrage:
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:="a;b;c"
(kompletter Code am Ende dieses Beitrags)
so erhalte ich nur folgende 1-zeilige Auswahl:
a;b;c
[Passiert auf XL97, XL200, XL2002 gleichermaßen]
Gehe ich nun auf A1, rufe einfach nur Daten--Gültigkeit auf und bestätige gleich das Ok ohne irgendwas sonst zu ändern, so stimmt wieder alles.
Als workaround habe ich dann a,b,c in eine Hilfsspalte eingetragen, dafür einen Namen vergeben usw., das funktioniert.
Aber meine Frage bleibt noch offen:
Mit welchem Vba-Code kann ich bei Daten--Gültigkeit--Liste bei "Quelle" die Liste "a;b;c" eingeben, sodaß sie auch korrekt später zur Auswahl steht?
Danke
Ein schönes WE wünscht euch Reinhard
Sub Makro1()
With Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1: _
="a;b;c"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub