Dim sDatum As String
Dim eDatum As String
Dim iWeekDay As Integer
Dim iDays As Integer
 
<font color=green>' aktueller Wochentag</font>
iWeekDay = Weekday(Now)
 
<font color=green>' zurückrechnen bis Mittwoch</font>
iDays = iWeekDay - vbWednesday
If iDays < 0 Then iDays = iDays + 7
 
sDatum = Format$(DateAdd("d", -iDays, Date), "mm-dd-yy")
eDatum = Format$(Now, "mm-dd-yy")