Arbeitstage subtrahieren

Hallo Forum,
vielleicht kann mir jemand bei der Umsetzung meiner Idee helfen, denn ich steh etwas auf dem Schlauch.
Was möchte ich gerne machen? Ich habe in jeder 5. Zeile einen Datumswert in Spalte H, diesen kopiere ich eine Zelle tiefer. Von diesem Datumswert sollen im ersten Schritt 15 Arbeitstage abgezogen und in Spalte G kopiert werden. Wenn ich in der ersten Zeile im Beispiel eine -15 eintrage zum abziehen, erhalte ich jedoch einen Laufzeitfehler 1004 (Workday Eigenschaft kann nicht zugeordnet werden). Was mache ich falsch?
Wenn ich den Makrorekorder bemühe, zeigt er mir =WORKDAY(RC[1],-15) an. Wie kann ich das auf meinen Code umsetzen? Macht es eventuell Sinn das Ganze als For-Schleife zu schreiben?
Hier ein Auszug aus dem Code:
...
Case 8
.Cells(i, 8).Offset(1, 0).Value = .Cells(i, 8).Value
.Cells(i + 1, 7).Value = .Cells(WorksheetFunction.WorkDay(i + 1, 15), 8).Value
.Cells(i + 1, 6).Value = .Cells(WorksheetFunction.WorkDay(i + 1, 10), 7)
.Cells(i + 1, 5).Value = .Cells(WorksheetFunction.WorkDay(i + 1, 2), 6)
.Cells(i + 1, 4).Value = .Cells(WorksheetFunction.WorkDay(i + 1, 5), 5).Value
.Cells(i + 1, 3).Value = .Cells(WorksheetFunction.WorkDay(i + 1, 14), 4).Value
.Cells(i + 1, 2).Value = .Cells(WorksheetFunction.WorkDay(i + 1, 18), 3).Value
End Select
Grüße
Susann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Alexandra, hallo Lupo1,
danke für eure Antworten. Ich habe euch eine Beispieldatei erstellt, vielleicht wird es dadurch etwas klarer was ich vorhabe. In Tabelle1 Zeile 5, 10 und 15 befindet sich jeweils das Ursprungsdatum. Das Datum kopiere ich mit Offset eine Zeile tiefer. Von diesem Datum aus sollen Arbeitstage subtrahiert bzw. addiert werden. In Beispiel 1 das Datum in Spalte G soll - 18 Arbeitstage zu Spalte H sein. In Spalte F -10 Tage zu Spalte G usw. Ich verstehe noch nicht wieso er mir das Datum nicht kopiert bzw. warum keine negativen Zahlen angenommen werden.
@Lupo1: Ich nutze i eigentlich nur als Zeilenzähler. Ich habe es jetzt auf lngI umbenannt.
Ich hoffe es ist verständlich.
LG
Susann
https://www.herber.de/bbs/user/128515.xlsm

Case 8 'Beispiel 1 'Arbeitstage sollen hier subtrahiert werden, -15, -10 usw. .Cells(lngI, 8).Offset(1, 0).Value = .Cells(lngI, 8).Value .Cells(lngI + 1, 7) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 8), - _ 15) .Cells(lngI + 1, 6) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 7), - _ 10) .Cells(lngI + 1, 5) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 6), -2) _ .Cells(lngI + 1, 4) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 5), -5) _ .Cells(lngI + 1, 3) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 4), - _ 14) .Cells(lngI + 1, 2) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 3), - _ 18) End Select

Case 8 'Beispiel 1 'Arbeitstage sollen hier subtrahiert werden, -15, -10 usw. .Cells(lngI, 8).Offset(1, 0).Value = .Cells(lngI, 8).Value .Cells(lngI + 1, 7) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 8), - _ _ 15) .Cells(lngI + 1, 6) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 7), - _ _ 10) .Cells(lngI + 1, 5) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 6), -2) _ _ .Cells(lngI + 1, 4) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 5), -5) _ _ .Cells(lngI + 1, 3) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 4), - _ _ 14) .Cells(lngI + 1, 2) = WorksheetFunction.WorkDay(.Cells(lngI + 1, 3), - _ _ 18) End Select

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arbeitstage subtrahieren

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread