Hallo Andreas,
die vorherigen Antworten waren von Mr. K.
Der folgende Code sollte funktionieren:
[code]Sub start()
intTage = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
For i = 1 To intTage
UserForm1.Controls("Label" & i).Caption = Format(DateSerial(Year(Date), Month(Date), i), "DD.MM.YY")
Next
UserForm1.Show
End Sub[/code]
Benenne Labels und Optionbuttons in einem allgemeinen Modul etc. bevor du die Userform startest.
Natürlich kannst du die Labeles auch beim Start der Userform benennen:
Code in einem Standard-Modul:
[code]Sub start()
UserForm1.Show
End Sub[/code]
Code im VBA-Projekt der Userform:
[code]Private Sub UserForm_Initialize()
intTage = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
For i = 1 To intTage
UserForm1.Controls("Label" & i).Caption = Format(DateSerial(Year(Date), Month(Date), i), "DD.MM.YY")
Next
End Sub[/code]
Gruß
M.O.
Gruß
M.O.