DTPicker
15.06.2021 07:51:40
Hans
Folgender Code legt einen "DTPicker" an.
Sub DTPicker_Dat_01()
Dim oObj As OLEObject
Dim oDTPicker As MSComCtl2.DTPicker
Dim cell As Range
Set oObj = ActiveSheet.OLEObjects.Add(ClassType:="MSComCtl2.DTPicker.2", Link:=False, DisplayAsIcon:=False, Left:=663.75, Top:=1155.75, Width:=12, Height:=13.5)
Set oDTPicker = oObj.Object
oDTPicker.LinkedCell = "Dat_01"
End Sub
1. DTPicker lässt sich nicht anklicken
2. LinkendCell funktioniert nicht.
Bitte um Hilfe
Gruß Hans
Anzeige