Hallo,

Habe einen kleinen Code geschrieben und verstehe nicht warum er nicht geht.

ich versuche mit einer Prozedur den Tag zu erfassen der 2 Networktage in der Zukunft liegt.

Z.B. heute ist Freitag also will ich den Dienstag herausfinden

Sub test()

Dim heute As Date, gesucht As Date
heute = Format(Date, "m/d/yyyy")      'Ist meine Formatierung die ich verwende
gesucht = Format(Date, "m/d/yyyy")  'Ist meine Formatierung die ich verwende

MsgBox gesucht  'nur zum check welches Datum ausgegeben wird

Do While 2 > Application.WorksheetFunction.NetworkDays(heute, gesucht)
gesucht = gesucht + 1
Loop

MsgBox gesucht  ' Nun muesste hier praktisch das Datum vom Dienstag stehen, tut es aber nicht WARUM??? es steht immer noch das heutige datum drinne.

Vielen Dank fuer Antworten

End Sub