Hallo zusammen,
es geht um folgendes:
ich habe ein konkretes Datum in der Zukunft(z.B. Zelle A2 = 01.06.2010). Für diesen Termin muss ich 22 Werktage vorher(Zelle B1 = 22) bestimmte Aufgaben erledigen. In der Zelle B2 möchte ich durch eine Formel das Datum berechnen, an dem genau 22 Werktage bis zum 01.06.10 vebleiben würden. Dabei dürfen die Wochenendtage und Feiertage nicht mit gezählt werden.
Ich wäre für jede Hilfe sehr dankbar!!!
LG
Oli.
ich habe ein konkretes Datum in der Zukunft(z.B. Zelle A2 =
01.06.2010). Für diesen Termin muss ich 22 Werktage
vorher(Zelle B1 = 22) bestimmte Aufgaben erledigen. In der
Zelle B2 möchte ich durch eine Formel das Datum berechnen, an
dem genau 22 Werktage bis zum 01.06.10 vebleiben würden. Dabei
dürfen die Wochenendtage und Feiertage nicht mit gezählt
werden.
Hallo Oli,
eine Formel, schau mal bei http://www.excelformeln.de .
Ansonsten Vba.
Rechtsklick unten auf das Blattregister, Code anzeigen, darein diesen Code:
Private Sub Worksheet\_Change(ByVal Target As Range)
If Not Target.Address = "$A$2" Or Target.Address = "$B$1" Then Exit Sub
If Range("$A$2").Value = "" Or Range("$B$1").Value = "" Then Exit Sub
Call termin(Range("A2"), Range("B1"))
End Sub
Dann oben Einfügen—Modul, darein diesen Code:
Option Explicit
'
Sub termin(ByVal Dat, ByVal Zahl)
On Error GoTo Hell
Application.ScreenUpdating = False
Range("Z1:Z2").NumberFormat = "dd/mm/yy"
Range("Z1").Value = Dat
Range("Z2").Value = Dat
Do
Range("Z3").FormulaLocal = "=SUMMENPRODUKT((WOCHENTAG(ZEILE(INDIREKT(Z1&"":""&Z2));2)=Z1)\*(C1:C25 Zahl
Range("B2").Value = Range("Z1").Value
Range("Z1:Z3").ClearContents
Application.ScreenUpdating = True
Exit Sub
Hell:
Range("B2").Value = "#FEHLER"
Application.ScreenUpdating = True
MsgBox Err.Number \* vbLf & Err.Description
End Sub
Editor schließen. Testdaten in A2 und B1 eingeben.
Gruß
Reinhard
Hallo Reinhard,
besten Dank für Deine schnelle Hilfe. Ich werde das mal so versuchen…
LG
Oli.