Urlaubsplaner

[Jürschen175]

Hallo zusammen,

ich komm leider nicht mehr weiter.
Ich möchte gerne das wenn ein Mitarbeiter Urlaub hat, das die Urlaubstage in das Formular eingetragen werden.
Meine Idee war erst mal.
ich markiere den Urlaub ( z.b MA2 . 2.1 bis 5.1) , drück auf meinen Button (siehe Januar oben) und danach werden die Daten in das Formular blatt eingetragen:
Name: in Zelle U 17
Urlaub von: in Zelle X46
Urlaub bis: in Zelle: AM46
Frei / Urlaub / S / in M36
welcher Tag : S46 und AH 46

Danach soll es blau werden, damit dieser Schein schon einmal gedruckt wurde. Aber irgendwie funktioniert das nicht.


Hat jemand eine andere Idee oder eine andere Idee

Der Urlaub schein darf nur einmal gedruckt werden danach soll eine Meldung kommen ( Schein wurde gedruckt)

Danke an alle

Danke an alle

[Jürschen175]

keiner einer eine Idee?

[schauan]

Hallöchen,


nur mal eine Zwischenfrage. Was soll den passieren, wenn der Mitarbeiter z.B. Dienstag und Mittwoch einer Woche schon beantragt und gedruckt hat und dann später doch die ganze Woche nehmen will? Muss er die Tage getrennt beantragen?

[Jürschen175]

Hallo
ja weil der gedruckte Schein schon in der Personalabteilung ist
 da muss er Montag Donnerstag und Freitag beantragen.

Danke dir für deine hilfe .

[schauan]

Hallöchen,

den Urlaub kannst Du so übertragen:

Code:

wks.Range("X46") = Cells(5, Selection.Column).Value
wks.Range("AM46") = Cells(5, Selection.Column + Selection.Columns.Count - 1).Value

Den Code würde ich übrigens in ein allgemeines Modul einfügen und dann im Blatt das Makro beim Click nur aufrufen.

[Jürschen175]

Hallo
schau mal da kommt ein Fehler:

leider kenne ich mich in VBA nicht so gut aus

[Glausius]

Hallo Jürschen,

bist du eine Meerjungfrau, weil du "aus der Ostsee" Grüße schickst oder wohnst du "an der Ostsee"?

Wo kommt ein Fehler, wann und was zeigt Excel für eine Fehlermeldung an?

[schauan]

Hallöchen,

der Fehler kommt, weil in Deinem Test was fehlt
Bei einem Code muss man immer darauf achten, dass alles da ist, was man da programmiert. Du schreibst:

Code:

Private Sub CommandButton2_Click()
wks.Range("X46") = Cells(5, Selection.Column).Value
wks.Range("AM46") = Cells(5, Selection.Column + Selection.Columns.Count - 1).Value
End Sub

Jetzt kannst Du mal prüfen, ob Du alles erklären könntest, was da steht, und wieso.
Range(...) ist eine Zelle oder ein Bereich
Cells(...) ist nur eine Zelle
Selection.Column ist die Nummer einer gewählte Spalte
Selection.Columns.Count ist die Anzahl der gewählten Spalten
Value ist der Wert, in Zusammenhang dann der Wert, der in einer Zelle steht

Aber wie erklärst Du wks?

Du kannst ja nun dazu in den ursprünglichen Code gehen. Excel kann das aber in dem Fall nicht
Dort steht

Dim wks As Worksheet deklariert die Variable wks als Arbeitsblatt
Set wks = Worksheets("Formular") weist der Variable das Blatt Formular zu

Das fehlt in Deinem Test, daher der Fehler.

Im Anhang hab ich mal die Datei mit dem vorgeschlagenen Auslagern. Der ursprüngliche Code steht jetzt in Modul1, mit den beiden Zeilen für's übertragen des Datums. Auf den Monatsblättern brauchst Du dann nur noch die Click-Makros mit dem Call ...

[Jürschen175]

Hallo Danke,

aber warum ist beim Tabellenblatt Formular AH 46 ein Datum drin und nicht der Wochentag
Und in M36 müsste was er hat ( Urlaub oder Frei)
Könntest du das nochmal prüfen ?

Dankeschön

[Jürschen175]

Hallo Jürschen,

bist du eine Meerjungfrau, weil du "aus der Ostsee" Grüße schickst oder wohnst du "an der Ostsee"?

Wo kommt ein Fehler, wann und was zeigt Excel für eine Fehlermeldung an?

An der Ostsee

Fehler hatte ich drin. Schauan hat ihn behoben