Datum täglich in neue Zelle schreiben

[Peter Gabriel]

Guten Tag alle miteinander,

in einer Excel-Tabelle Seite 1 wird über "=Datum()" in eine Zelle beim öffnen das aktuelle Datum eingetragen.
Zusätzlich wird in dieser Tabelle in einer einzelnen Zelle die Kosten errechnet.

Das kann man sich so vorstellen: Seite1 Zelle A1 hat immer das aktuelle Datum und in B1 steht dann z.b. 300€

Diese zwei Werte sollen dann auf das nächste Arbeitsblatt Seite 2 automatisch übernommen werden. 
Am folgenden Tag sollen die zwei Werte von Seite 1 (Datum und Kosten) auf Seite 2 unter den übernommenen Zellen vom Vortag eingesetzt werden.
Die Daten sollen einfach fortlaufend in Zellen gespeichert werden.

Wenn jemand einen guten Ansatz hat wäre ich sehr dankbar.

Seite 2 sollte dann folgender Maßen aussehen

       A1                   B1
1  01.01.2021        300€
2  02.01.2021        200€
3  03.01.2021        400€
4.     usw...
5
6

Mit freundlichen Grüßen

Peter

[schauan]

Hallöchen,

eventuell kannst Du das mit diesem Ansatz lösen:
Excel-Zeitstempel-Datumsstempel-per-Formel

Du müsstest dann noch einen Zusammenhang zwischen der Zeilennummer und dem Datum verarbeiten. Im Prinzip darf sich nur die Zelle ändern, wo im Beispiel als Ergebnis der Differenz von Heute und dem Datumswert 0 raus kommt.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
32	01.02.2021	44228	3
33	02.02.2021	44229	2
34	03.02.2021	44230	1
35	04.02.2021	44231	0
36	05.02.2021	44232	-1
37	06.02.2021	44233	-2
38	07.02.2021	44234	-3

Zelle	Formel
C32	=HEUTE()-B32

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

[Peter Gabriel]

Vielen Dank für deine Antwort,

dass aktuelle Datum wird jetzt auf Seite 2 automatisch in A1 eingesetzt sobald sich ein Wert in Zelle B1 befindet.
Genauso wollte ich das haben. Was jetzt aber noch fehlt ist, dass von Seite 1 eine Zelle fortlaufend auf Seite 2 in die B Reihe übernommen wird.
Statischer Zellenbezug für Seite2 ist ja einfach. Wenn auf Seite 1 in B1 meine Kosten mit 100 stehen dann kann ich die ja auf Seite 2 mit "=Seite1!B1" übernehmen.
Soweit so gut aber jetzt würde ich noch dazu haben wollen, dass am nächsten nicht mehr auf Seite2 B1 eingetragen wird sondern auf Seite2 in B2 :S

z.B. am zweiten Tag im Jahr (am Vortag wurden 100 auf Seite1 B1 geschrieben)

(Seite 1 wird jeden Tag aktuallisiert also zumindest B1 wird manuell immer von Hand überschrieben)

Seite 1
A1                         B1
02.01.2021            230

(Seite 2 enthält meine Datenbank wo jetzt der Wert von Seite 1 "B1" täglich auf Seite 2 übernommen werden soll) 

Seite2
A1                         B1
01.01.2021            100
02.01.2021            230

Es muss meiner Meinung nach nur noch der Wert fortlaufend auf Seite 2 Reihe B übernommen werden sobald sich das Datum unterscheiden sollte.
Vielen Dank trotzdem schon mal für deine Hilfestellung.

[schauan]

Hallöchen,

warum schreibst Du die Formel für den Wert nicht gleich direkt daneben?

[Kuwer]

Hallo Peter,

per VBA könnte es mit folgendem Code im schon vorhandenen VBA-Modul von Seite1 gehen (Rechtsklick auf den Tabellenreiter > Code anzeigen):

Code:

Private Sub Worksheet_Calculate()
  With Worksheets("Seite2").Cells(Rows.Count, 1).End(xlUp)
    If .Value <> Me.Cells(1, 1).Value Then
      .Offset(1, 0).Value = Me.Cells(1, 1).Value
      .Offset(1, 1).Value = Me.Cells(1, 2).Value
    End If
  End With
End Sub

Gruß Uwe