Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Popup Kalender
#21
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


Angehängte Dateien
.xlsm   MonthView.xlsm (Größe: 22,31 KB / Downloads: 8)
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:
  • IchBinIch
Antworten Top
#22
Da muss ich an meinem privaten Lappi wohl noch mal ran :(

   
Antworten Top
#23
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#24
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 Dodgy.

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

Gruß
Ich
Antworten Top
#25
Hallöchen,

ich hätte da auch noch einen DTP
http://www.xltips.de/ftxt/lnk-dow/DatePicker.htm
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste