Hallo, ich möchte gerne Werktage addieren. Steige aber mit dem Makro =Dateadd nicht ganz dahinter.
Ich habe beispielsweise folgende Daten:
Fr,08.03 -- 10:42
Fr,08.03 -- 11:14
Fr,08.03 -- 11:56
Fr,08.03 -- 12:38
Fr,08.03 -- 12:59
Fr,08.03 -- 13:41
Fr,08.03 -- 14:02
Sa,09.03 -- 07:48
Sa,09.03 -- 09:24
Sa,09.03 -- 11:05
Sa,09.03 -- 11:53
Sa,09.03 -- 16:40
Sa,09.03 -- 19:07
Sa,09.03 -- 22:48
So,10.03 -- 01:06
So,10.03 -- 09:55
Samstag und Sonntag wird nicht gearbeitet. Ich möchte nun gerne beim Samstag 2 Tage addieren, _ damit ich beim Montag raus komme und beim Sonntag dementsprechend auch 2 Tage addieren, um zum Dienstag zu kommen. Mit der Funktion =Arbeitstag klappt das, alledings sollen die Uhrzeiten erhalten bleiben. Mein Ansatz eines Makros war folgender: Sub Dateaddd() ' Werktage addieren Makro lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row For t = lz To 3 Step -1 If Cells(t, 11).Value = "09.03.2019 07:48" Then cell.Value = Dateadd("n", 2880, "09.03.2019 07:48") End If Next t End Sub
Es passiert genau nichts, wenn ich es ausführe. Außerdem müsste ich dieses dann für jeden Wochenendtag und zuätzlich für jede Uhzeit schreiben. Bitte um Hilfe, alleine komme ich einfach nicht weiter.