Clever-Excel-Forum

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

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

[attachment=7664]

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

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

Hallöchen,

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