Einzelne Tabellen mit fortlaufendem Datum

Computer: Software & Programmierung Office Software
1

Hallo an alle Experten,
ich muss ca. 150 einzelne Tabellenblätter mit fortlaufendem Datum erstellen.
Beginn ist der Sonntag, 26. April 2009 und Ende soll Sonnabend, der 31. Oktober 2009 sein.
Das Datum soll sich also nicht innerhalb einer Tabelle, sondern erst auf dem folgenden Tabellenblatt ändern.
Kennt jemand eine Möglichkeit, dies durch eine Formel zu automatisieren?
Vielen Dank schon mal für eure Mühe.
LG Harriet

2

ich muss ca. 150 einzelne Tabellenblätter mit fortlaufendem
Datum erstellen.
Beginn ist der Sonntag, 26. April 2009 und Ende soll
Sonnabend, der 31. Oktober 2009 sein.
Das Datum soll sich also nicht innerhalb einer Tabelle,
sondern erst auf dem folgenden Tabellenblatt ändern.
Kennt jemand eine Möglichkeit, dies durch eine Formel zu
automatisieren?

Hallo Harriet,

wie heißen denn die Blätter, wenn sie einen fortlaufenden Index haben sehe ich eine Möglichkeit dies per Excelformeln zu lösen.

Gruß
Reinhard

3

Hallo Reinhard,
wie schön, daß du so schnell geantwortet hast.
Es handelt sich um ein Belegbuch, bestehend aus 6 Spalten.

  1. Spalte Uhrzeiten untereinander von 8 bis 21 Uhr, also 14 Zeilen,
  2. bis 6. Spalte Platz 1 bis 5 (Tennisplätze)
    und für jeden Tag ist ein solches Tabellenblatt erforderlich.
    Damit am Ende der Saison Abrechnungen gemacht werden können, sollte das jeweilige Tagesdatum am Kopf der Tabelle vorhanden sein.
    Hab ich das einigermaßen verständlich erklärt?
    Ich bin gespannt auf die Lösung.
    Und „danke“ schon mal…
    Harriet
4

Hallo Harriet

Hab ich das einigermaßen verständlich erklärt?

ja, sieht gut aus.

Aber gefragt habe ich dies:

wie heißen denn die Blätter

Gruß
Reinhard

5

Die Frage versteh ich nicht. Ich möchte diese Tabellen erstellen. Es gibt sie bisher noch nicht.
Gruss Harriet

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

6

Hallo Harriet

wie heißen denn die Blätter

Die Frage versteh ich nicht. Ich möchte diese Tabellen
erstellen. Es gibt sie bisher noch nicht.

dann erstelle sie doch.
Nimm eine leere Mappe.
Alt+F11, Einfügen–Modul, Code reinkopieren, Editor schließen.
Ausführen mit Alt+F8…

Gruß
Reinhard

Sub Erstelle()
Dim Anz As Integer
Application.ScreenUpdating = False
For Anz = 1 To 150
 Worksheets.Add after:=Worksheets(Worksheets.Count)
 ActiveSheet.Name = "Blatt" & Anz
 If Anz \> 1 Then
 Range("A1").FormulaLocal = "=" & "Blatt" & Anz - 1 & "!A1+1"
 Range("A1").NumberFormat = "dd.mm.yyyy"
 Else
 Range("A1") = "26.04.2009"
 End If
Next Anz
Application.DisplayAlerts = False
For Anz = Worksheets.Count - 150 To 1 Step -1
 Worksheets(Anz).Delete
Next Anz
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub