Office: Fortlaufendes Datum im Jahresplaner

Hallo

Ich bin am erstellen eines Jahresplaners. Jeder Tag hat ein eigenes Tabellenblatt und jedes Tabellenblatt enthält in der Zelle E6 den aktuellen Tag und in E7 das aktuelle Datum.

Frage: Wie kann ich ohne grossen Aufwand und wenn möglich mit einer Einheitslösung den jeweiligen Tag und das dazugehörige Datum in jede der 365 Tabellen einfügen? Wenn möglich ohne Samstage und Sonntage.
Gibt es auch eine Lösung, dass das Register gleich das Datum auch mitbekommt?

Besten Dank für die Hilfe.

Gruss
Warnet

 

Hallo!

Dazu brauchst du VBA.
Was ich aber nicht verstehe ist:
365 Blätter, aber OHNE Samstage und Sonntage???
Wie soll man sich das denn vorstellen?

 

Sorry ...
Überlegungsfehler . .. Dann sind es dann 365 abzüglich alles SA und SO = ca 260 Tabellenblätter.

Lösungsvorschlag?

Danke und Gruss
Warnet

 

Hallo!

Dann lass doch mal diesen Code drüber laufen:

Code:

Sub Kalender()
Dim d As Date, i As Integer
d = DateSerial(2007, 12, 31)
For i = 1 To ThisWorkbook.Sheets.Count
Do
d = d + 1
Loop Until d Mod 7 > 1
With Sheets(i)
.Name = d
.Range("E7") = d
.Range("E6") = WeekdayName(Weekday(d, vbMonday))
End With
Next
End Sub

 

Hallo Schatzi

"WeekdayName" nimmts mir nicht an. Habe es auf Weekday abgeändert.

Nun bekomme ich das richtige Datum in E7, jedoch fehlt mir noch den dazugehörigen Wochentag als Name in der Zelle E6.

Gruss
Warnet

 

Seltsam...
Eigentlich müsste Excel2002 das kennen.
Aber so sollte es gehen:

Code:

Sub Kalender()
Dim d As Date, i As Integer
Const Jahr = 2008
d = DateSerial(Jahr, 1, 0)
For i = 1 To ThisWorkbook.Sheets.Count
Do
d = d + 1
Loop Until d Mod 7 > 1
With Sheets(i)
.Name = d
.Range("E7") = d
.Range("E6").Formula = "=TEXT(E7,""TTTT"")"
.Range("E6") = .Range("E6")
End With
Next
End Sub

 

:-D :-D :-D

Perfekt. Genau so gehts.

Danke für die Hilfe!

Gruss
Warnet