Daten > Gültigkeit (mit VBA)
25.11.2008 15:53:00
Peter
ich hab' ein Problem mit Daten - Gültigkeit.
In einer meiner Mappen habe ich für einen Bereich (B3:B400) eine Gültigkeit definiert: Zugelassen wird eine Liste und die passenden Daten werden über einen Namen referenziert (=Namen)
Nun passiert es aus (mir) unverständlichen Gründen dass manchmal in den Zellen rechts die Drop-Down-Pfeile nicht angezeigt werden.
Daher habe ich einen Button in die Tabelle gesetzt und wollte dadurch ermöglichen, den Bereich wieder mit den gewünschten Daten und dem Drop-Down-Pfeil zu versehen.
Das versuche ich so:
Dim lngVonZeile As Long
Dim lngBisZeile As Long
lngVonZeile = 3
lngBisZeile = Worksheets("kupStammdaten").Range("B65536").End(xlUp).Row
ActiveWorkbook.Names.Add Name:="Namen", RefersTo:="=kupStammdaten!$B$" & lngVonZeile & ":$B$" & lngBisZeile
lngVonZeile = 4
lngBisZeile = Worksheets("Eingang").Range("B65536").End(xlUp).Row
With Worksheets("Eingang").Range("C" & lngVonZeile & ":C" & lngBisZeile).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:="=Namen"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Beim Ablauf des Makros haut mir Excel in der Zeile mit .Add auf die Finger.
Der Bereich "Namen" ist in einer anderen Tabelle definiert.
Habt Ihr eine Idee was ich hier falsch mache?
Vielen Dank für Eure Hilfe und herzliche Grüße
Peter