Sub Userform()
Load UserForm4
UserForm4.ComboBox1.AddItem Format(Date, "DD, dd.mm.20yy")
UserForm4.ComboBox1.AddItem Format(Date + 1, "DD, dd.mm.20yy")
UserForm4.ComboBox1.AddItem Format(Date + 2, "DD, dd.mm.20yy")UserForm4.Show 'vbmodeless
End Sub
Der Inhalt soll also z.B. Sa, 20.03.2004 beinhalten...
Schaon mal Danke im vorraus.