Urlaubsformular VBA Hilfe

Hallo und einen schönen Sonntag,
ich hab ein Problem und komme nicht weiter.
Wir haben einen Urlaubsplaner. Wenn ein Mitarbeiter Urlaub haben will, trage ich ihn ein und danach müssen wir es genehmigen lassen. Dazu gibt es ein Formular.
Ich habe mir etwas vorgestellt.
Ich markiere z.b. bei Januar, Mitarbeiter Hans den Urlaub vom 02. bis 09.
nach klicke ich auf dem Button und die Daten kommen ins Blatt Formular.
Danach muss im Januar der Text "u" (u= Urlaub, "f" (f= frei)oder "s" ( s= Sonderurlaub) rot werden, damit der Urlaub schon einmal beantragt wurde.
sollte ein Mitarbeiter den roten Text nocheinmal drucken, soll eine Meldung kommen, "Achtung Urlaub wurde bereits gedruckt".
Weil das Formular dar nur einmal gedruckt werden. ( vielleicht gibt es eine andere IDEE außer den Text rot zu machen).
https://www.herber.de/bbs/user/106175.xlsm
Ich hoffe das ihr mir helfen könnt
Liebe Grüße aus München
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Zu umständlich?

13.06.2016 14:22:35

Thomas

AW: Zu umständlich?

13.06.2016 16:28:46

hary

AW: Zu umständlich?

13.06.2016 17:42:05

Thomas

AW: Probier mal

14.06.2016 07:35:32

hary

AW:Sry,Hinweisbox vergessen

14.06.2016 07:50:25

hary

AW: AW:Sry,Hinweisbox vergessen

14.06.2016 10:26:08

Thomas

AW: AW:Sry,Hinweisbox vergessen

14.06.2016 10:49:08

hary

löschen

14.06.2016 10:49:56

Thomas

löschen

14.06.2016 10:50:02

Thomas

AW: löschen

14.06.2016 11:06:33

hary

super danke danke danke :-)

14.06.2016 11:10:21

Thomas

Hallo Hary,
danke für deine Hilfe
anbei die "original Datei"
https://www.herber.de/bbs/user/106205.xlsm
Also zuerst kommt ein MA ins Büro dann wird U, F, oder S eingetragen. Mitte der Woche oder je nach dem wann Zeit ist, müssen wir es im Formular eintragen und ausdrucken.
MA5 kommt z.B. Montag 05.01.2016 rein und will am 13.01 bis 19.01 Urlaub haben.
Dann trage ich es in die Liste ein.
Meine IDEE:
sobald ich Zeit habe, markiere ich den Bereich ( 13.01 bis 19.01 ) und anschließend drücke ich den Button und die Werte werden ins Formular eingetragen:
Name
Personalnummer
Resturlaub (Tabellenblatt: Januar AM14)
Urlaub von bis
Frei von bis
Sonderurlaub von bis
Danach kann es unser Chef es genehmigen oder nicht.
"Druckt der MA das Blatt "Formular" selber aus?"
Nur wir (4 MA) benutzen diesen Urlaubsplaner, da wir 3 Schicht haben, drucken wir den Urlaubsformular immer 2 oder 3 mal raus und das nervt den Chef.
Deswegen meine Idee, nach dem Button (zum Formular) das dann die Schrift Rot wird und das man trotzdem wenn rote Schrift keiner mehr drucken kann. Meldung:" Der Urlaubsantrag wurde bereits gedruckt".
Ich hoffe es wird verständlicher.
Danke erstmal.
LG Thomas

Sub Formular() Dim wks As Worksheet Dim Zelle As Range If Selection.Rows.Count > 1 Then Exit Sub Set wks = Worksheets("Formular") wks.Range("C7:C9,E7:E9").ClearContents '-- dies dazwischen evtl. die anderen Zellen _ dazu wks.Range("B4") = Cells(Selection.Row, 2) '--Name wks.Range("B5") = Cells(Selection.Row, 1) '--ID Nummer wks.Range("G4") = Worksheets("Zusammenfassung").Cells(Selection.Row - 8, 4) '-- _ Resturlaub wks.Range("B11") = Date '--jetzige Datum '--usw.

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread