Wochentage für einen Bereich eintragen

Bild

Betrifft: Wochentage für einen Bereich eintragen
von: rainer
Geschrieben am: 10.11.2003 08:23:38

Hallo zusammen,
ich erstelle für einen Projektplan bei Eingabe eines Start- und Endedatums, automatisch den dazugehörigen Kalender.
In einer Zeile steht dann das Datum, in der Zeile darüber sollte der Wochentag stehen.
Ich erstelle die Datumszeile folgendermassen:
Range("startdatum").Resize(1, anzahltage + 1).DataSeries Rowcol:=xlRows, Type:=xlChronological, Date:=xlDay
(Startdatum ist eine Zelle mit Namen, und enthält das Kalender-Startdatum)
Nun muss in der darüberliegenden Spalte der Wochentag automatisch eingetragen werden, nach Möglichkeit mit der Formel =WOCHENTAG(betreffende zelle).

Für eure Hilfe bin ich sehr dankbar.

Gruss
Rainer

Bild


Betrifft: AW: Wochentage für einen Bereich eintragen
von: Coach
Geschrieben am: 10.11.2003 17:49:16

Hallo Rainer,

das geht per Formel so (1..7):
Range("startdatum").Resize(1, anzahltage + 1).Offset(-1, 0).FormulaR1C1 = "=WEEKDAY(R[1]C,2)"
Mo..So
Range("startdatum").Resize(1, anzahltage + 1).Offset(-1, 0).FormulaR1C1 = _ "=INDEX({""MO"";""DI"";""MI"";""DO"";""FR"";""SA"";""SO""},WEEKDAY(R[1]C,2))"

Wenn danach keine Formeln gewünscht noch:
Range("startdatum").Resize(1, anzahltage + 1).Offset(-1, 0).Value = Range("startdatum").Resize(1, anzahltage + 1).Offset(-1, 0).Value

Gruß Coach


Bild


Betrifft: AW: Wochentage für einen Bereich eintragen
von: Rainer
Geschrieben am: 11.11.2003 10:12:06

Hallo Coach,
vielen Dank für die Lösung.
So funktioniert es wie ich's mir gewünscht habe.

Gruß
Rainer


Bild

Beiträge aus den Excel-Beispielen zum Thema " Wochentage für einen Bereich eintragen"