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 ?
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
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.
[
attachment=21071]
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.
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
Supi, hat funktioniert, jetzt kommt der "Langtest" mal sehen wie es morgen aussieht.
