Danke im voraus.
Sub und End
Sub folgendes schreiben: Cells(1, 1).Value = Calendar1.Value
Dann wieder in die Tabelle: Steuerelement-Toolbox - Entwurfsmodus beenden
Bei jedem Datumsklick übernimmt er Dir das ausgewählte Datum in Zelle A1
Viel Spaß beim modifizieren und erweitern
Gruß Oliver