Listenfeldausgabe VBA

Sub TesteDatumInListenfeldEinfügen()
ActiveSheet.Shapes("Listenfeld3").ControlFormat.RemoveAllItems
Datum1 = Date - 2
ZF1 = Format(Datum1, "####0")
With Worksheets("Daten")
Set lb = .Shapes("Listenfeld3")
For x = 1 To 10
ZF2 = Format(ZF1, "ddd.dd.mm.yyyy")
lb.ControlFormat.AddItem ZF2
ZF1 = ZF1 + 1
Next
End With
End Sub

Wie muß das Makro aussehen, wenn ich per klick auf das entsprechende Datum im Listenfeld, dieses Datum in eine Zelle ausgebe?
Hierzu fehlt mir leider jedlicher Ansatz :-(
Gruß SP