Hallo Thomas,
an einem Monatag oder Dienstag wird der Mittwoch der selben Woche ausgewählt, ab Mittwoch der Mittwoch der folgenden Woche:
If Weekday(Date, vbUseSystemDayOfWeek) > 2 Then
Target.Offset(0, 2).Value = Date + 10 - Weekday(Date, vbUseSystemDayOfWeek)
Else
Target.Offset(0, 2).Value = Date + 3 - Weekday(Date, vbUseSystemDayOfWeek)
End If
Gruß
M.O.