Grundsätzlich hätte ich mir einfach einen "Date-picker" gewünscht. Klick auf eine Befehlsschaltfläche, Kalender poppt auf, Datum wählen und erscheint in Zelle, Kalender geht wieder zu. Nun scheint es, als ob bei meiner Excel-Version das entsprechende Add-in nicht funktioniert. Beim Versuch das entsprechende ActiveX-Element einzufügen erscheint die Fehlermeldung "Objekt kann nicht eingefügt werden".
Deshalb habe ich mir alternativ ein Add-In installiert das einen schönen Kalender zeigt (XLTools.net Calendar) und eine Kommandoschaltfläche eingefügt, dieser ein Makro zugewiesen, das den Kalender einblendet. Nun hätte ich gerne, dass der Kalender, nachdem man das Datum ausgewählt hat, wieder im Hintergrund verschwindet. Im Moment sieht der Code aus wie folgt und der Kalender verschwindet nach der eingestellten Zeitspanne. Dies soll so nicht sein.
Sub Kalender()
' Kalender Makro
Range("B5").Select
ActiveSheet.Shapes.Range(Array("Add-In 1")).Visible = msoTrue
DoEvents
Application.Wait Now + TimeValue("00:00:04")
ActiveSheet.Shapes("Add-In 1").Visible = False
End
Sub
Danke für Inputs
Ivo