Hallo,
danke euch für eure Antwort, aber bei mir klappt das irgendwie nicht.
Im Code habe ich
[code]Global strMonat As String
Sub test()
strMonat = "August"
UserForm1.Show
End Sub
[/code]
in der UserForm1 habe ich:
[code]Private Sub UserForm_initialize()
With ListBox1
.AddItem "Jutta"
.AddItem "Georg"
.AddItem "Uwe"
.AddItem "Ali"
.AddItem "Karl"
.AddItem "Paul"
.AddItem "Andreas"
.AddItem "Nico"
.AddItem "Gerd"
.AddItem "Max"
.AddItem "Uwe"
.AddItem "Peter"
End With
j = Month(CDate("1." & Left(strMon, 3))) + 1
intTage = Day(DateSerial(Year(Date), Month(CDate("1." & Left(strMon, 3))) + j, 0))
For i = 1 To intTage
UserForm1.Controls("Label" & i).Caption = Format(DateSerial(Year(Date), Month(CDate("1." & Left(strMon, 3))), i), "DD.MM.YY")
Next
end sub[/code]
Die variabe strMonat ist da aber schon wieder "leer"..???
Das dürfte doch gar nicht sein...
Gruß A.