Validation mit aktuellem Datum

Forumthread: Validation mit aktuellem Datum

10.05.2006 16:08:30

specke

Hallo Experten,
ich möchte mit validation.add eine Liste erzeugen, die mir die Tage anzeigt. Beginnend mit dem heutigen Datum bis zum Monatsende.
Z.B. ist heute der 10.5., dann soll die Liste anzeigen 10,11,12,...,30,31.
Ich habe folgendes probiert:
Range("A1").Validation.Add xlValidateList, Operator:=xlBetween, Formula1:="=today()", Formula2:="=date(year(today()),month(today())+1,1)-1"
Dabei bekomme ich immer Laufzeitfehler 1004.
Über Type:=xlValidateDate habe ich zwar die Gültigkeitsabfrage hinbekommen. Es wird aber keine Auswahlmöglichkeit in Listenform angezeigt.
Geht das was ich möchte überhaupt?
Gruß specke

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Validation mit aktuellem Datum

10.05.2006 16:39:12

UweD
funzt super! Danke! o.T.

10.05.2006 17:14:02

specke

AW: Validation mit aktuellem Datum

10.05.2006 16:39:12

UweD

Hallo
liegt an der LIST, da mußt du schon expliziete Werte vorgeben und nicht "von bis"
so ginge es...


Sub Gueltigkeit()
Dim St As Date, Ed As Date, i%, Liste$
St = Date
Ed = DateSerial(Year(Date), Month(Date) + 1, 0)
For i = Day(St) To Day(Ed)
Liste = Liste & "," & i
Next
Range("A1").Validation.Delete
Range("A1").Validation.Add Type:=xlValidateList, Operator:= _
xlBetween, Formula1:=Liste
End Sub

Gruß UweD
(Rückmeldung wäre schön)

funzt super! Danke! o.T.

10.05.2006 17:14:02

specke

Forumthread: Validation mit aktuellem Datum

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread