Urlaubstage eintragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jan,
Das TB-Eingaben, ist in einem Stundenprogramm intregiert und ist eigentlich ein Urlaubsantrag. Wenn der Urlaubsantrag genehmigt wird, soll mit dem Makro die Anzahl der Urlaubstage in das jeweilige TB des MA in eine Spalte neben den Ist-Stunden eingetragen werden. Von dort aus werden alle eingetragenen Urlaubstage, von allen Mitarbeitern (44) eingelesen und in dem TB-Urlaub alle nebeneinander gelistet. Das ganze Programm, läuft eigentlich einwandfrei, bis auf das manuelle eingeben der Urlaubstage wenn der Antrag genehmigt wurde.
Bislang wurden die Urlaubszeiten immer zu Fuß in das Stundenblatt des MA eingegeben und genau das, möchte ich nun mit dem Makro erleichtern, weil ja alle Daten schon im Antragsblatt eingetragen sind.
Ich hoffe, so ist es besser zu verstehen.
Gruß
Josef

Hallo Josef,
dann siehts Makro ein bischen ander aus:


Sub UrlaubEintragen()
Dim UBeginn As Date
Dim UEnde As Date
Dim Wer As String
Dim Wks As Worksheet
Dim Flag As Integer
If IsDate(Worksheets("Eingaben").Cells(10, 3)) Then
UBeginn = Worksheets("Eingaben").Cells(10, 3)
Else
MsgBox "Geben Sie beim Urlaubsbeginn ein korrektes Datum ein !"
Exit Sub
End If
If IsDate(Worksheets("Eingaben").Cells(10, 5)) Then
UEnde = Worksheets("Eingaben").Cells(10, 5)
Else
MsgBox "Geben Sie beim Urlaubsende ein korrektes Datum ein !"
Exit Sub
End If
'Prüfung ob die Diff. zwischen beiden Datums positiv ist
If DateSerial(Year(UEnde), Month(UEnde), Day(UEnde))


Sub eintragen(ByRef Wer As String, UBeginn As Date, UEnde As Date)
Dim lZ As Long, i As Long
MsgBox "Mitarbeiter: " & Wer & " - U-Beginn: " & UBeginn & " - U-Ende: " & UEnde
lZ = Worksheets(Wer).Cells(Rows.Count, 1).Row
For i = 3 To lZ
If Worksheets(Wer).Cells(i, 1) >= UBeginn And Worksheets(Wer).Cells(i, 1)  0 Then ' Feiertag
Worksheets(Wer).Cells(i, 4) = ""
End If
End If
End If
Next i
End Sub

Viele Grüße
Herby

Sub UrlaubEintragen() Dim UBeginn As Date Dim UEnde As Date Dim Wer As String Dim Wks As Worksheet Dim Flag As Integer If IsDate(Worksheets("Eingaben").Cells(10, 3)) Then UBeginn = Worksheets("Eingaben").Cells(10, 3) Else MsgBox "Geben Sie beim Urlaubsbeginn ein korrektes Datum ein !" Exit Sub End If If IsDate(Worksheets("Eingaben").Cells(10, 5)) Then UEnde = Worksheets("Eingaben").Cells(10, 5) Else MsgBox "Geben Sie beim Urlaubsende ein korrektes Datum ein !" Exit Sub End If 'Prüfung ob die Diff. zwischen beiden Datums positiv ist If DateSerial(Year(UEnde), Month(UEnde), Day(UEnde))

Sub eintragen(ByRef Wer As String, UBeginn As Date, UEnde As Date) Dim lZ As Long, i As Long MsgBox "Mitarbeiter: " & Wer & " - U-Beginn: " & UBeginn & " - U-Ende: " & UEnde lZ = Worksheets(Wer).Cells(Rows.Count, 1).Row For i = 3 To lZ If Worksheets(Wer).Cells(i, 1) >= UBeginn And Worksheets(Wer).Cells(i, 1) 0 Then ' Feiertag Worksheets(Wer).Cells(i, 4) = "" End If End If End If Next i End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread