Clever-Excel-Forum

Hallo Leute,

ich brauche wieder Hilfe.

Es handelt sich hierbei um eine Tabelle mit VBA.

Ich habe ein Datum und die Dauer und damit macht er mir einen entsprechenden farblichen Balken. (Bauzeitenplan)

Nun handelt es sich hierbei nur um Arbeitstage Mo- Samstag. Er soll mir nun bei dem Balken den Sonntag und die Feiertage nicht markieren.

Wie muss das aussehen?

Anbei habe ich eine Datei.

LG

Hallöchen,

hier mal ungetestet eine Erweiterung Deines codes. Erstelle eine Sicherheitskopie und füge die 3 Zeilen von For bis Next zwischen die beiden Target-Zeilen ein.

Code:
Tage = DateDiff("d", Target.Value, Target.Offset(0, 1).Value, vbMonday) + 1

   Target.Offset(0, Abschnitt + 2).Resize(1, Tage).Interior.Color = Farbe

   For Each zellen In Target.Offset(0, Abschnitt + 2).Resize(1, Tage)

     If WorksheetFunction.Weekday(Cells(2, zellen.Column), 2) = 7 Then zellen.Interior.ColorIndex = xlColorIndexNone

   Next

   Target.Offset(0, Abschnitt + 2 + Tage).Value = Txt  'falls der Text am Anfang der Markierung beginnen soll

Oben im Makro, wo die Dim's stehen, schreibst Du in einer weiteren Zeile
Dim Zellen as Range

Kapi

schauan