Office: "Eigener" PopUp Kalender in Excel

Die Wochentage stehen im Deklarationsteil des Formularentwurfes

Code:

Die Monatsnamen werden im Formularcode mit der Funktion

Code:

ermittelt. Wenn Du das auf englisch haben willst, musst Du da eine eigene Funktion für schreiben (wenn keine englische Ländereinstellung im Betriebssystem)

z.B.:

Code:

 

Danke, hat geklappt !

 

Hallo Scorefun,

der Kalender ist genau das, was ich gesucht habe. Ich habe diesen Kalender als Popup eines Textfeldes eines Eingabe-Formulars.

Eine kleine Frage habe ich: Wenn ich das Kalender-Formular mit dem Button "Schließen" oder auch mit dem Kreuz schließe, bleibt mein Mauszeiger in dem "Laden" Modus, also bei Windows 7 dieser blaue Kreis. Erst, wenn ich erneut auf das Eingabe-Formular klicke, kommt der normale Mauszeiger wieder.
Ich gebe zu, das ist kein großes Problem, eher kosmetischer Natur *wink.gif*

Weißt du, oder jemand anderes, woran das liegen könnte?

Viele Grüße!

 

Hat sich schon erledigt...

ich hatte Visual Basic noch geöffnet, während ich das Formular benutzt habe. Wenn ich das vorher schließe, hab ich das vorher beschrieben Problem nicht mehr!

Also einfach ignorieren, was ich vorher geschrieben habe *redface

 

Hallo,

super Kalender, nur leider wenn ich die TextBox auf meiner Multipage Seite ablege kommt ein Fehler "Laufzeitfehler 438" Objekt unterstützt die Eigenschaft oder Methode nicht ". Beim Debug meldet er mir diese Zeile

Code:

Wie kann ich das ändern, das es funktioniert ?

Grüße Ralf

 

Habe mich mal schlau gemacht.
Das Multipage-Control wird als Container betrachtet und muss anders angesteuert werden

Neue Version hier :

http://www.scorefun.de/vba/popupkalender.rar

Weitere Probleme dürften auftreten, wenn man zusätzlich zur Multipage auch noch einen Frame dahintersetzt als Rahmen...aber das habe ich jetzt mal gelassen...*wink.gif*

bitte testen.

 

Hi Ralf, geht super und was soll ich leider sagen habe klar auch ein Frame eingesetzt, hab meine Übersicht jetzt erstmal ein wenig geändert.

Vielen Dank

Grüße Ralf

 

Habe das jetzt doch mal getestet mit einem zusätzlichem Frame...

gleicher Link wie #66 *wink.gif*

 

Hallo Scorefun,

Deine Popup-Kalender-Lösung im 6. Jahr ;-) ... absolut zu recht.
Eine tolle Lösung, ich bin begeistert!

Ich komme allerdings nicht ganz ohne Frage daher:
Wie kann ich die Userform an einer ganz bestimmten Stelle erscheinen lassen. Den dazu gefundenen Basis-Code kann ich nicht verbinden mit Deinem Code:
Code:

Mein Ziel wäre, die Userform ~ mittig über der angeclickten Zelle kommen zu lassen, um bei vielen Eingaben ein paar Mausbewegungen zu sparen. Letzteres würde ich mir allerdings auch selber hinbasteln.

Viele Grüße
Rainer

 

Hallo Rainer,

danke für das Lob *wink.gif*

Um die Position der Userform zu ändern, muss auf jeden Fall StartUpPosition auf 0 (manuell) gesetzt sein

Ich habe mal in dem globalen Modul zwei öffentliche Variablen deklariert

Code:

In der Prozedur des Tabellenblattes dann die Variablen belegen:

Code:

Bei der Initialisierung der Userform dann unten dranhängen ::

Code:

Mit den Positions-Werten, die target zurückliefert, kannst Du ja etwas rumspielen...

Hope that helps...

P.S.: Beim Aufruf über eine Userform könnte es ähnlich funktionieren, da müsste man dann die Position des aktiven Controls auslesen

edit: Die Koordinationen eines Worksheets und einer Userform stimmen allerdings nicht überein, sodaß für eine richtige Positionierung erst eine Umrechnung erfolgen muss.

Beispiele gibt es hier:
Form Positioner
und hier:
http://www.vb-fun.de/cgi-bin/loadfra.../tip0395.shtml

 

Hallo Ralf,

grandios! Es funktioniert.
Der entscheidende Hinweis war die Sub UserForm_Initialize, in der die Positionierung einzubauen ist.

Und die Links sind auch noch mal super hilfreich.

Vielen Dank und bester Grüße
Rainer

 

Hallo Ralf

Auch von mir ein dickes Lob hat mir sehr vierl Arbeit erspart mein Chef hat mir die Aufgabe gestellt welche du schon gelöst hast :-)

Jetzt noch eine Frage?
Kann man die Ansicht ändern auf zb 3 Monate


Vielen Dank
Gruß
Thomas

 

Kann man bestimmt, aber ich mach's nicht *wink.gif*

 

Das reizte mich ja dann doch...*biggrin.gif*

http://www.scorefun.de/vba/popupkalender_3monate.rar

Ob alles fehlerfrei läuft, bitte testen

 

Hallo Scorefun,

erst mal (schon wieder) vielen Dank für den tollen Kalender.! *Smilie

Ich hätte da nur ein klitzekleines Problem. Bei dem doppel klick auf *verbundene Zelle* erhalte ich:

Laufzeitfehler '13':
Typen unverträglich

Kannst Du das irgendwie abfangen, oder noch besser den doppel-klick auch bei verbundenen Zellen zulassen.??

Tausen dank und einen schönen Tag noch...!
relook