Office: "Eigener" PopUp Kalender in Excel

Hallo Scorefun,

habe deine Kalender ausprobiert und bin auf folgendes Problem gestossen.

Möchte den Kalender als Datumseingabe nur in zwei Feldern nutzen.
Angepasste Datei liegt im Anhang. Auswahl funktioniert soweit auch,
allerdings nur bei richtigen Einzelzellen. Wenn es mit einer verbunden Zelle
probiert wird kommt folgende Fehlermeldung: Laufzeitfehler 13 - Typen unverträglichkeit.

Leider langen meine VBA Kenntnisse nicht aus um dieses Problem zu beheben,
bzw. besteht überhaupt die Möglichkeit?

Danke schon mal im Voraus.

MfG

Johannes

 

Sorry,

Anhang vergessen. *upps

MfG

Johannes

 

Ergänze die Funktion mal wie folgt (neue Zeilen markiert)

Code:

 

Danke Scorefun,

funktioniert einwandfrei. *Smilie

MfG

Johannes

 

Hallo Scorefun

Spitzen Kalender!!!

Ein kleines Problem habe ich. Ich habe in einer UF zwei Textboxen welche über deinen Kalender mit verschiedenem Datum befüllt werden sollen, aber er übernimmt mir das gewählte Datum immer für beide TextBoxen.

Den Code im Modul habe ich folgendermassen angepasst:

Function PopupCalendar_Form(ctl As Control) As Variant


varStartDate = IIf(IsNull(ctl.Value), Date, ctl.Value)
frmKalender.Show
If Not bCancel Then
frmAufträgeErfassen.txtDatumBestellung = CDate(DateSerial(frmKalender!YYear, frmKalender!Month, frmKalender!tDay))
End If
'Unload frmKalender
If Not bCancel Then
frmAufträgeErfassen.txtWunschtermin = CDate(DateSerial(frmKalender!YYear, frmKalender!Month, frmKalender!tDay))
End If


End Function

Wie müsste ich das ganze anpassen das ich in jede TextBox ein anderes Datum übernehmen kann?

Besten Dank schon im voraus!!

Gruss Peter

 

Hallo Scorefun,

ein super Teil, was du da gebaut hast.
Mich reizt die Uhrzeitangabe, bzw. in meinem Fall Dauer.

Wenn ich das so reduziere, dass ich nur noch vier Minuten-Buttons habe, was muss ich an dem Code ändern, außer die restlichen Knopf-Codes zu löschen, damit die Knöpfe 0, 15, 30 & 45 anzeigen?

Ich hoffe das ist irgendwie verständlich...

Vielen Dank schon mal im Voraus.

Liebe Grüße
Christoph

 

Die Funktion muss überhaupt nicht angepasst werden, wofür auch?
Wenn Du den Code korrekt in Dein Projekt kopiert hast, braucht es in den Textboxen Deiner Userform nur den entsprechenden Aufruf, so, wie er in meiner Test-Userform beim Doppelklick drinsteht

 

wahrscheinlich 'ne ganze Menge *biggrin.gif*
was mich persönlich aber im Moment nicht besonders reizt, sorry *cool.gif*

 

Hallo Scorefun

Danke für die rasche Antwort.
Der Grund das ich die Funktion angepasst habe war derjenige das ich immer Laufzeitfehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht) habe sobald ich das gewünschte Datum im Kalender mit Doppelklick übernehmen möchte. Der Debugger verweist mich auf folgende Zeile im Modul:
ctl.Text = CDate(DateSerial(frmKalender!YYear, frmKalender!Month, frmKalender!tDay))

Was mache ich falsch?

Habe alles aus deiner Vorlage übernommen. Kann es sein das in meiner Bibliothek etwas fehlt? Sollte doch eigentlich nicht der fall sein, das geniale ist ja an deinem Kalender das er Autonom egal welche Office Version installiert ist läuft.

Ich bin dir sehr Dankbar für deine Hilfe!!

Gruss Peter

 

Etwas kommt mir jetzt gerade noch in den Sinn.
Kann es daran liegen das ich die TextBox in meiner UF beim Exit auf Datum überprüfe, da der User das Datum auch manuell eingeben kann und ich sicherstellen möchte das dies auch richtig gemacht wurde?
Der Befehl sieht folgendermassen aus:

Code:

Gruss Peter