Office: Datum in Arbeitsmappen weiterzählen

Hallo ihr,

alles Gute im neuen Jahr, vor allem Gesundheit.

Habe eine Arbeitsmappe mit ettlichen Tabellenblättern.

Nun möchte ich, wenn ich in Arbeitblatt 1 in Zelle C3 das Datum 01.01.2021 eintrgae, dass in den folgenden Arbeitsblättern automatisch in C3 ein tag adddiert wird.

Also in Arbeitsblatt 2 soll in C3 der 02.01.2021 stehen.

Für eure Hilfe im Voraus besten Dank.

Tommy

 

Hi Tommy,

in Tabelle2 Zelle C3 diese Formel: =Tabelle1!C3+1, in Tabelle3 Zelle C3 diese Formel: Tabelle2!C3+1 usw. also immer der Bezug auf Zelle C3 des vorhergehenden Tabellenblattes +1

---

 

Hallo Karin,

wie es mit einer Formel geht, weißß ich.

Da ich aber nicht in jedem Tabellenblatt die Formel eingeben will, dachte ich an ein Makro.

Tommy

 

Hi Tommy,

das habe ich aus deinem Beitrag nicht entnehmen können, dass du das mit VBA machen willst - das nächstemal also bitte genau angeben was du machen willst.

Folgenden Code ins Codemodul des 1. Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lngTab As Long
    If Target.Cells(1).Address(False, False) = "C3" Then
        If IsDate(Target.Cells(1)) Then
            For lngTab = 2 To Worksheets.Count
                Worksheets(lngTab).Range("C3") = Worksheets(lngTab - 1).Range("C3") + 1
            Next lngTab
        End If
    End If
End Sub

---

 

Moin Tommy!

Vielleicht, vielleicht aber auch nicht?
Wenn die Tabellen Tabelle1, Tabelle2, … Tabelle n heißen, dann

1. Gruppiere Tabelle2 bis Tabelle n
2. In Tabelle2!C3: =INDIREKT("Tabelle"&BLATT()-1&"!C3")+1
3. Gruppierung wieder auflösen!

Gruß Ralf

 

Hallo Ralf, deine Lösung klappt, wie ich sehe, geht es ohne Makro.

Liebe Karin,

wo füge ich den Code ein?
Habs probiert mit neuem Makro, geht nicht.

LG und danke an euch beide.

Tommy

 

Hi Tommy,

Rechtsklick auf den Reiter des Tabellenblattes, in welchem du das 1. Datum einträgst -> Code anzeigen und den Code dann dort hineinkopieren.

---

 

Vielen lieben Dank!!!