Hallo und guten Tag,
ich habe folgenden Code, der einen Fehler verursacht:
'Arrays setzen und Box füllen
Dim Month_Ar As Variant
Month_Ar = Workbooks("05BLVallg.XLS").Worksheets("strg_werte").Range("C6:C17")
Dim mn As Control
For Each mn In Me.Controls
If mn.Name Like "monat_*" Then
With mn
.List = Month_Ar
.Visible = False
'.Value = Format(Date, "mmmm") --&gt Hier kommt der Fehler
End With
End If
Next
In den Quellzellen steht ein Datum z.B.: 01.01.2004!
Ich möchte jetzt das in der Listbox, dass Datum im Format von "mmmm"
eingetragen wird, zur Zeit wird es mit 01.01.2004 eingetragen!
Was muss ich tun damit dies funktioniert?
Danke schonmal im voraus.
MFG
Steffen Schmerler