Wie krieg ich das hinn dass Excel mir bei .Value + 1 nur dann + 1 macht wenn
AG1 Mo-Fr ist. Wenns Samstag oder Sonntag ist nichts addieren
Sub Datum()
i = i + 1
If i = 8 Then
i = 0
Sheets("Eingabe Daten Prod. Auftrag").Range("AG1").Value = _
Sheets("Eingabe Daten Prod. Auftrag").Range("AG1").Value + 1
End If
ZeileNr = ZeileNr + 1
Wend
Sheets("Eingabe Daten Prod. Auftrag").Range("AG1").FormulaLocal = "=HEUTE()"
END