Daten neben aktuellen Datum kopieren

[BlackBeauty]

Hallo zusammen,
ich habe eine Excel Tabelle in der Spalte A steht das Datum von oben nach unten aufsteigend.
In den Zellen H5 bis L5 stehen Werte, die aktualisiert werden (aus mehreren Sheets), den Inhalt dieser Zellen möchte ich einmalig am Tag oder auch bei Bedarf neben dem aktuellen Datum kopieren.
Hat dafür jemand eine Musterlösung ?

[RPP63]

Moin!Falls ich Dich richtig verstanden habe:

	A	B	C	D	E	F	G	H	I	J
4	Datum						a	b	c	d
5	25.11.2018
6	26.11.2018
7	27.11.2018
8	28.11.2018	a	b	c	d
9	29.11.2018
10	30.11.2018
11	01.12.2018
12	02.12.2018

Zelle	Formel
B5	=WENN($A5=HEUTE();G$4;"")

Gruß Ralf

[BlackBeauty]

Leider ist die Lösung noch nicht ganz perfekt, habe es nicht richtig erklärt.
Die Lösung ist soweit gut für den heutigen Tag, jedoch sind am darauffolgenden Tag die Daten natürlich wieder weg.
Ich wollte das mir die Tabelle gefüllt wird, neben dem heutigen Tag sollen die heutigen Werte eingetragen werden und gespeichert.
Damit ich auch eine Historie habe.

[BlackBeauty]

   
Damit ihr mein Problem besser versteht, findet ihr im Anhang ein Bild.
Ich möchte Daten aus H5:L5 (Die Zellen werden per Sverweis-Befehl aus anderen Sheets gefüllt) kopieren und den Wert neben dem aktuellen Datum einfügen.
Nach speichern und verlassen von diesem Dokument, sollen am nächsten Tag die Werte (natürlich unter dem gestrigen Datum) weiter zur Verfügung stehen.
Das ganze soll fortlaufend sein bis das Jahr zu Ende ist.
Ich könnte mir auch vorstellen, das ganze in ein Makro zu packen und dann manuell per Knopfdruck aus zuführen.

Vielen Dank schon einmal.

[RPP63]

Moin!
Ja dies ist nur mittels VBA möglich.
Weise dem Button folgendes Makro zu:

Sub RPP()
Dim Datum
With Tabelle1
  On Error Resume Next
  Datum = WorksheetFunction.Match(CDbl(Date), .Columns(1), 0)
  If Err.Number <> 0 Then
    MsgBox "Das heutige Datum konnte nicht gefunden werden!"
  Else
    .Range("H5:L5").Copy
    .Cells(Datum, 2).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
  End If
  On Error GoTo 0
End With
End Sub

Gruß Ralf

[BlackBeauty]

Supi, hat funktioniert, jetzt kommt der "Langtest" mal sehen wie es morgen aussieht.