Zellen Inhalt verschiebt sich automatisch am nächsten Tag

[Enrico]

Okay ... weiß nicht wie ich das gemacht habe aber jetzt geht es.

Vielen Dank

[Enrico]

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ß

Hallo, noch ein Problem. Soweit funktioniert alles super aber im Archiv wird das Datum ebenfalls mit der Formel (=Arbeitstag.Intl(Heute();1;1)) abgespeichert und nicht als ein festen Wert.

Deswegen wandert das Datum im Archiv ebenfalls mit und es wird nicht der Wert für den heutigen Tag gezogen.

Bsp.:

Der Eintrag von gestern für den 26.06.2023 steht heute in der Archiv-Tabelle für den 29.05.2023 drin.


Gibt es eine Möglichkeit das auch das Datum als fester Wert hinterlegt wird?

[el-rettev]

Hallo Enrico,

das war ein Fehler von mir.
Macht ja gar keinen Sinn ein Archiv zu erstellen mit dynamischen Daten, die sich ändern.

Füge folgenden VBA Code ein:

Code:

Sub Werte_archivieren()
    Sheets("Tabelle1").Range("B2:C2").Copy
    Sheets("Tabelle1").Range("B" & Sheets("Tabelle1").Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
   
    Application.CutCopyMode = False
End Sub

Bzw. wenn du ihn nur anpassen möchtest :
nach offset(1) muss ergänzt werden, dass die Werte eingefügt werden.
Das wird mit .Pastespecial xlPasteValues gemacht

[Enrico]

Danke Dir