Urlaub sonja.ausHH an Peter
12.02.2007 01:54:47
sonja.ausHH
kannst Du mir bitte noch einmal helfen?
Mit Deiner folgenden Routine werden die Einträge in Tabelle "Urlaub" gemacht.
' die Eingaben sind gültig, nun kann mit dem Einfügen der Werte begonnen werden
'
' die erste Datenzeile ist die Zeile 11 - deshalb Beginn bei +10
'
For iZeile = (iLfdTag_V + 10) To (iLfdTag_B + 10)
bGefunden = False
dDatum = dBasis + iZeile - 11
For iZeile_F = 5 To Worksheets("Feiertage").Range("A65536").End(xlUp).Row
If IsDate(Worksheets("Feiertage").Range("A" & iZeile_F).Value) Then
If dDatum = CDate(Worksheets("Feiertage").Range("A" & iZeile_F).Value) Then
bGefunden = True
Exit For
End If
End If
Next iZeile_F
If Weekday(dDatum) = 1 Or _
Weekday(dDatum) = 7 Or _
bGefunden = True Then ' Feiertag, Sonnabend oder Sonntag ?
Else
Cells(iZeile, iSpalte).Value = TextBox3.Value ' Spalte markieren
End If
Next iZeile
Ich versuche nun schon das halbe Wochenende die Routine so umzuschreiben, dass damit auch ein Eintrag in die Tabelle "Urlaubsschein" gemacht werden kann.(Nicht in eine Spalte, sondern in 12 Zeilen, je Monat eine Zeile).puuuuh, bin ich noch zu dumm zu.
Der "Urlaubsschein" wird zwar momentan noch per Exelformeln ausgefüllt, aber mitlerweile habe ich gemerkt dass dieses nicht ausreicht, es muss in VBA sein, da auch mehrere Daten übernommen werden sollen.
Eine Userform habe ich schon erstell, die Urlaubsdaten sind eingelesen (zb. 02.05.2007 U 15.05.2007)...., aber jetzt gehts leider nicht mehr weiter. Ich bekomme es einfach nicht hin mit den Eintragungen in den einzelnen Zeilen für die Monate. Und wie ist das mit dem 29.02. ? ist sicher auch schwer hinzubekommen.
Die Daten werden von den Variablen, DatumV,sText(ist die Art),DatumB u. Mitarbeiter, übergeben.
Ich bin Dir sehr dankbar wenn Du mir da noch einmal auf die Sprünge helfen könntest.
Wochenende ist vorbei
schöne Woche
sonja.ausHH