Office: Userform beim Klick auf Zelle öffen und Wert der Zelle übernehmen

Guten Morgen zusammen. *Smilie

Ich habe mir eine Userform erstellt, über die ich u.a verschiedene Daten in eine Tabelle eintragen möchte.

Mein erstes Problem:
Die Userform soll sich bei einem Klick auf eine Zelle öffnen und den Wert der Zelle soll in ein Feld der Userform übernommen werden, in dem Fall ein Name. (F4:S4)

Siehe Bild...

Ich bin keine VBA-Crack - will aber gerne dazu lernen.

Gruß
Udo

:)

 

Hallo Udo,

das funktioniert im Prinzip so:
Code:

 

Hi Ingi,

das klappt prima.

Wenn die Userform in Vordergrund steht, habe ich ja keine Chance, einen anderen Namen auszuwählen.
Gibt´s eine Möglichkeit, die Tabelle "aktiv" zu halten?

Gruß
Udo

 

Hallo Udo,

dazu musst du das UserForm(ular) so aufrufen:
Code:

Gruß Ingolf

 

Das klappt super, Ingi *winner

Was ich als nächstes bräuchte....*redface.gif*

In das erste Datumsfeld soll das aktuelle Datum, welches sich aber noch ändern lassen soll..
In das zweite Datumsfeld soll sich das "Ende-Datum" eintragen lassen...

Bitte, bitte...

Udo

 

Hallo Udo,

wenn du Textfelder als Datumsfelder verwendest, solltest du dort problemlos auch etwas eintragen können. Um das aktuelle Datum im Format TT.MM.JJJJ in das erste Datumsfeld einzutragen, kannst du die folgende Codezeile verwenden:
Code:

Gruß Ingolf

 

Das klappt...

Darf ich mich nächste Woche noch mal an dich wenden?

Vorerst vielen Dank für deine Hilfe und schönes WE *biggrin.gif*

Gruß
Udo

 

Hallo Gemeinde,

nach dem mir letzte Woche Ingolf so klasse weitergeholfen hat und ich dadurch ein guten Stück weiterkam, hoffe ich nun auch wieder auf eure Unterstützung....

Ich möchte noch kurz dazu anmerken, dass ich den Urlaubplaner zur freien Verfügung mit anhänge, ihn jeder bearbeiten kann wie er möchte und für seine eigenen Zwecke verwenden kann. Mir ist nur einfach wichtig, dass das Teil auch irgendwann vernünftig zu bedienen ist.

Das nächste Problem was sich mir stellt, ist, dass z.B. Alex vom 23.- 27.4. 2007 Urlaub plant.
Dies soll in diese Spalte mit einem Klick auf "Eintragen" und dem Kürzel "UP" eingetragen werden. Bei Bedarf soll hier noch ein Kommentar angehängt werden. Samstage, Sonntage und die Feiertage sollen übersprungen werden.

Weiß jemand, wie man das hinbekommt?

 

Hi,

ich hab mal etwas an deiner Datei rumgebastelt.
Das Eintragen funktioniert jetzt, allerdings fehlt noch die Abfrage was eingetragen werden soll (Es wird immer UP eingetragen) aber das läßt sich leicht einfügen. Außerdem hab ich das mit dem Kommentar übersehn, der fehlt also auch.
Wenn das Formular offen ist kann man jetzt auch das Anfangs/Ende-Datum eintragen in dem man einen Bereich im Kalender markiert.
Außerdem habe ich die Formatierungsfunktion etwas beschleunigt.

 

Hi Stykar,

erstmal vielen Dank für deine Hilfe!!!!! *Smilie

Das mit "UP" war ein Beispiel.
Es wir z.B. "Urlaub" im Formular angeklickt, in den Kalender wird "U" eingetragen usw. Die Formatierung ist ja schon, dank Hajo, vorhanden. Wenn du mir hier einen Lösungsansatz geben könntest, kann ich mir den Rest wahrscheinlich selber hinfummeln.


Gruß
Udo

 

Wie gesagt, das ist realtiv einfach. Du mußt nur abfragen welcher Optionsbutton gesetzt ist und dann das entsprechende Zeichen an die Funktion eintragen übergeben.

 

.....ok...hört sich ja auch realtiv einfach an...
Aber da ich kein VBA-Crack bin, bräuchte ich irgendeinen Ansatz...

Gruß
Udo

 

Ich hab´s jetzt erstmal so gelöst:

Code:

Falls jemand eine Idee hat, wie der Code verkürzt werden könnte - nur zu...

Gruß
Udo

 

Du kannst das ganze mit einer Variablen etwas kürzen:
Code:

 

Hallo zusammen,

erstmal Danke an sStyrKar für den Tipp - klappt prima. Aber nur mal, damit ich´s auch verstehe: Warum brauch ich in diesem Code kein "EndIF"?

Nun aber zu meiner eigentlichen Frage.
Aus dem Screenshot wird ersichtlich, dass bei der Auswahl mehrerer Zellen und bei dem Versuch, einen Kommentar zu erstellen, mir beim Eintrag eines 2ten Buchstabens eine Fehlermeldung angezeigt wird.
Der Kommentar wird über diesen Code generiert:
Code:

Kann mir jemand erklären, wo hier der Fehler liegt?

Ich hab´ die Mappe auch noch mal mit angehangen.

Gruß
Udo