Popup Kalender

[RPP63]

Moin!
Wieder am Rechner …
Mal ein simples Beispiel, wie mittels Doppelklick in einem Bereich (bei mir mit "Daten" benamt) das Datum des MonthView ins Target übernommen wird.
Der Code im Klassenmodul der Tabelle:
Microsoft Excel Objekt Tabelle1

Option Explicit 
Dim Ziel As Range 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Not Intersect(Target, Range("Daten")) Is Nothing Then 
  With MonthView1 
     .Value = IIf(Target > 0, Target, Date) 
     .Visible = True 
     .Left = Target.Left 
     .Top = Target.Top 
  End With 
  Set Ziel = Target 
  Cancel = True 
End If 
End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
MonthView1.Visible = False 
End Sub 

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) 
Ziel = MonthView1.Value 
MonthView1.Visible = False 
End Sub 

Datei im Anhang, funktioniert nur im Bereich "Daten".

Disclaimer:
Die Datei funktioniert nur bei ordnungsgemäßer Registrierung der MSCOMCTL2.OCX

Gruß Ralf

[IchBinIch]

Da muss ich an meinem privaten Lappi wohl noch mal ran :(

   

[RPP63]

Und so schließt sich der Kreis in dieser von mir im ersten Post angemerkten Problematik!
Ginge evtl. so:
https://social.msdn.microsoft.com/Forums...m=sbappdev
Zunächst noch einmal der Hinweis:
So etwas funktioniert auf dem Rechner, dessen User alles berücksichtigt.
Die Datei ist NICHT zur Verteilung freigegeben, weil sie iaR nicht funktioniert!

Gruß Ralf

[IchBinIch]

Ich probiere es morgen nochmal am Firmen-Lappi mit Win7 allerdings auch in der 64er-Version.
Office ist aber definitiv eine 32Bit-Version.
Aber die Problematik mit der Installation/Registrierung wird auch im von mir verlinkten Video
beschrieben. Scheint eine "Keep-Fingers-Crossed"-Aktion zu sein .

Im Zweifel bleibt dem TS noch die Lösung mit dem MonthView in der UF.

Gruß
Ich

[schauan]

Hallöchen,

ich hätte da auch noch einen DTP
http://www.xltips.de/ftxt/lnk-dow/DatePicker.htm