Erstmal vielen Dank, aber in der Sciptsprache von LoNo kenne ich mich nicht im Geringsten aus:
Ich habe jetzt auch die Felder als Variant definiert:
Dim StartDateTime As Variant
Dim EndDateTime As Variant
Dim CalendarDateTime As Variant
Set itm = doc.GetFirstItem("StartDateTime")
Set dt_Start = itm.DateTimeValue
Set itm = doc.GetFirstItem("EndDateTime")
Set dt_End = itm.DateTimeValue
Redim as_Values(0 To 0)
as_Values(0) = dt.LSLocalTime
Call dt.AdjustDay(1)
Do While dt_Start.TimeDifference(dt_End) < 0
Redim Preserve as_Values(0 To (Ubound(as_values) + 1))
as_Values(Ubound(as_Values)) = dt.LSLocalTime
Call dt.AdjustDay(1)
Loop
doc.CalendarDateTime = as_Values
bekomme aber immer den gleichen Fehler:
"Variant does not contain an object"
Was heisst das? Wen muss ich wie und wann definieren?