Kalender, Erweiterung
18.02.2014 10:12:23
walter
habe gestern den Tipp von Hansueli Kalender von Hajo
erhalten.
Das klappt jetzt.
Jetzt wollte ich den Kalender auch ein 2.Mal in der Userform nutzen,
klappt irgendwie nicht.
Für das erste einsetzen des Datums:
Private Sub Label_Click()
If Month(Label.Tag) = Month(DaDatumKa) Then
ActiveSheet.Range("J13").Select
UserForm2.Label50 = Worksheets("Test").Range("J13").Value
ActiveCell = CDate(Label.Tag) ' Tag in Zelle
ActiveCell.NumberFormat = "dd.mm.yyyy" ' Zellformat Datum
Unload frm_Kalender ' UserForm verlassen
UserForm2.OptionButton4.Value = False
Unload frm_Kalender
Else
Erstellen Label.Tag ' ausgewählten Monat anzeigen
End If
End Sub
Beim 2. nutzen wird Optionbutton6 angeklickt und dann soll das Datum
in Zelle J14.
mfg Walter p