als erste Näeherung (ohne Feiertage) prüfe bitte diesen code:
Code:
Sub Jensen() lr = cells(rows.count, "A").end(xlup).row For i = 2 to lr Cells(i, "C") = cells(i, "A") + cells(i, "B") Beginn: Wtag = weekday(int(cells(i, "C"))) If Wtag = 1 then cells(i, "C") = cells(i, "C") + 0.25: goto Beginn If Wtag = 6 then cells(i, "C") = cells(i, "C") + 0.75: goto Beginn If Wtag = 7 then cells(i, "C") = cells(i, "C") +1 Next i End sub
für die Feiertage füge vor 'end sub' diesen Code ein:
Code:
'Feiertage Dim rng as range lr2 = cells(rows.count, "I").end(xlup).row For i = 2 to lr2 Flag = true Do while Flag Set rng = columns("C").find(cells(i, "i")) If not rng is nothing then Cells(rng.row, "C") = cells(rng.row, "C") +1 Else Flag = false End if Loop Next i End sub
Hallo Fennek, erst einmal Danke für deine Hilfe. Es gibt da noch irgenwie ein kleines Problem, wenn ich einen Auftrag z.b: am Freitag in der Nacht starte wird dieser Sonntags fertig.
muster.xlsm (Größe: 27,03 KB / Downloads: 1)
Das Muster mit deiner Funktion ist im Anhang.
Hallo, ich habe die Funktion von Fennek in einem Modul gepackt und anschließend einen "berechnen" Button damit verknüpft. Beim speichern ist es halt eine xlsm Datei geworden. Ich verstehe das man nun die muster.xlsm nicht mehr downloden möchte weil da ja auch Schadcode drinn sein könnte, habe zuspät daran gedacht.
hier mal ein Screenshot: [url= Dateiupload bitte im Forum! So geht es: Klick mich! ]
(30.03.2016, 13:48)Jensen schrieb: Hallo, .... Ich verstehe das man nun die muster.xlsm nicht mehr downloden möchte weil da ja auch Schadcode drinn sein könnte, habe zuspät daran gedacht.
hier mal ein Screenshot: [url= Dateiupload bitte im Forum! So geht es: Klick mich! ]
Hallo, das ist mindestens genauso schlimm... ... man kann hier direkt Bilder posten... ... dann wäre auch kein "Schadcode drinn" auf der Seite...
Gruß Jörg stolzes Mitglied im ----Excel-Verein Freund einer excellenten Power Query-Abfrage