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, 12: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
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht
"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford