Office: Letzte Spalte mit Inhalt ermitteln, Formeln in der Spalte in nächste Spalte übertrage

Hallo zusammen,

gleich vorab: zum besseren Verständnis habe ich eine Beispieldatei angehängt.

Ich habe Daten in einer Tabelle Übersicht (Reiter "Übersicht") und nehme wochenweise Auswertungen aus diesen Daten auf.

Jede "Datenwoche" in einer Spalte (Reiter "Wochen").

Wenn ich eine neue Woche beginne, habe ich bisher immer die Zeilen 1-9 der letzten Spalte markiert und per "Autofill" in die neue Spalte übertragen.

Anschließend die vorherige Woche per kopieren und "Werte einfügen" von den Formelbezügen befreit um die Vergangenheitswerte fix zu haben.

Gerne würde ich diese Aktionen per Makro automatisieren, heißt:

- letzte Spalte mit Inhalt ermitteln (= letzte Woche mit Daten)
- Formeln auf neue Spalte übertragen (= neue Woche erzeugen)
- die zweitletzte Spalte (also die neue vorherige Woche) mit Werten überschreiben um die Formeln zu entfernen
- in Zeile 1 der neusten Spalte sollte am liebsten das heutige Datum (beim Ausführen des Makros) eingetragen werden
- Zeile 3 soll geleert und mit ANZAHL2 der Spalte A aus Reiter Übersicht gefüllt werden.

Könnt ihr mir behilflich sein; meine Versuche mit dem Makrorekorder habe ich verzweifelt eingestellt.

Falls etwas unklar sein sollte, verzeiht mir das und fragt bitte nach.


Viele Grüße,

Dominik

:)

 

Hallo Dominik,

in der Spalte O im Blatt "Übersicht" stehen gar keine Werte. Was soll den da die Formel Code:

ergeben?

 

Moin Hasso,

in der "Übersicht" stehen normalerweise noch sehr viele weitere Spalten. Der Übersicht halber und da ich für das Übertragen der Wochen nur die Spalte für Anzahl 2 benötige (das Prinzip bleibt ja das selbe, wenn ich dann mit der "echten" Übersicht arbeite) habe ich alle anderen Daten entfernt.

Bitte also die Bezugsfehler ignorieren. Falls das die Lösung blockiert, dann kannst du vielleicht die Lösung Formel unabhängig darstellen? Oder muss ich im Makrocode mit den tatsächlichen Formeln arbeiten und kann nicht Autofill o. ä. nutzen?


Viele Grüße,

Dominik


/edit:

Wenn ich den Makrorekorder nochmal bemühe bekomme ich natürlich einen Code, der funktioniert. Jedoch fehlt hier natürlich die "automatische" Wahl der letzten Spalte und übertrag auf "letzte Spalte + 1". Ich kopiere nichtsdestrotrotz meinen Code zur Info mal hierher.

Code:

 

Ich denke ich konnte mir selbst helfen, gerne kann hier nochmal ein "Review" vorgenommen werden.

Code: