ich habe eine Frage und bin mir sicher das ihr mir weiterhelfen könnt.
Ich habe eine Tabelle wo teilweise der Inhalt mit einer PowerPoint-Präsentation verbunden ist.
Unter anderem gibt es dort eine Angabe für den aktuellen Tag und einen Wert für den Folgetag.
Ist es möglich das ich HEUTE die entsprechenden Eingaben hinterlege und der Wert vom Folgetag automatisch den Wert für den aktuellen Tag morgen ersetzt? Der Wert für den neuen Folgetag würde dann wieder manuell eingetragen werden.
hier meine erste Idee. Dabei wird der Wert von heute in einer Zelle (E2) zwischengespeichert. Vllt kommt da noch ein besserer Vorschlag, denn bin in VBA erst in den Startlöchern. Aber grundsätzlich macht der Code, was gewünscht wurde.
Code:
Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$C$2" Then Range("E2").Copy Range("C4") Range("C2").Copy Range("E2") End If End Sub
11.05.2023, 15:29 (Dieser Beitrag wurde zuletzt bearbeitet: 11.05.2023, 15:30 von el-rettev.)
Die Idee von Uwe eine Chronologie anzulegen macht absolut Sinn. Evlt. möchte man auch alte Werte zum Vergleich herholen.
Ich habe eine Beispiel-Datei erstellt wie man eine Art Archiv anlegen könnte mit einem Button, der den Wert des Folgetags archiviert, damit er am nächsten Tag als heutiger Tag abgerufen werden kann.
Zelle B2 gibt das Datum für den nächsten Arbeitstag an:
Code:
=ARBEITSTAG.INTL(HEUTE();1;1)
Zelle C2 ist der manuell eingegebene Wert des Folgetags
Zelle B3 gibt das heutige Datum an:
Code:
=HEUTE()
Zelle C3 holt sich per Sverveis den dazugehörigen Wert zu Datum aus B3 (heutiges Datum)
Code:
=SVERWEIS(B3;tab_Archiv;2;FALSCH)
Folgende(r) 1 Nutzer sagt Danke an el-rettev für diesen Beitrag:1 Nutzer sagt Danke an el-rettev für diesen Beitrag 28 • Enrico
Nun ist natürlich, wie immer, aufgefallen das das selbe mit einem 2 (oder zukünftig 3,4) noch besser wäre. Ich wollte eigentlich die Formel kopieren mit andere Zellen kopieren. Irgendwie klappt es dann aber nicht.
(11.05.2023, 15:29)el-rettev schrieb: Die Idee von Uwe eine Chronologie anzulegen macht absolut Sinn. Evlt. möchte man auch alte Werte zum Vergleich herholen.
Ich habe eine Beispiel-Datei erstellt wie man eine Art Archiv anlegen könnte mit einem Button, der den Wert des Folgetags archiviert, damit er am nächsten Tag als heutiger Tag abgerufen werden kann.
Zelle B2 gibt das Datum für den nächsten Arbeitstag an:
Code:
=ARBEITSTAG.INTL(HEUTE();1;1)
Zelle C2 ist der manuell eingegebene Wert des Folgetags
Zelle B3 gibt das heutige Datum an:
Code:
=HEUTE()
Zelle C3 holt sich per Sverveis den dazugehörigen Wert zu Datum aus B3 (heutiges Datum)
Code:
=SVERWEIS(B3;tab_Archiv;2;FALSCH)
Hallo, ich habe das Problem das die Tabelle für das Archiv nicht unendlich fortsetzt. Dadurch wird am nächsten Tag auch nicht der korrekte Wert genommen.
Kannst du mir helfen? Warum schreibt er die Tabelle, wie in deiner Beispiel-Datei, bei mir nicht unendlich fort?`
25.05.2023, 15:49 (Dieser Beitrag wurde zuletzt bearbeitet: 25.05.2023, 16:41 von Glausius.)
Hallo Enrico,
in der Datei ist das Makro nicht mehr hinterlegt. Ich denke, weil du auf die Schnelle eine Musterdatei angelegt hast. Die intelligente Tabelle wird nicht mehr fortgeführt, da eine Ergebniszeile eingeführt wurde. Die rausnehmen, dann sollte es klappe. Falls die Summe benötigt wird, würde ich sie oberhalb der Tabelle mit einer Summen-Funktion schreiben. In meiner Beispieldatei habe ich die Summe mit einer Aggregat-Funktion gezogen. Gruß
Folgende(r) 1 Nutzer sagt Danke an el-rettev für diesen Beitrag:1 Nutzer sagt Danke an el-rettev für diesen Beitrag 28 • Enrico