VBA -
28.02.2017 12:49:11
Nik
ich habe eine Liste mit kumulierten Bedarfszahlen, welche wöchentlich kaskadiert untereinander stehen.
Nun möchte ich am Ende der Liste einen Vergleich der KUM Zahlen zur Vorwoche per Formel ausrechnen lassen und dann die Formel für die Folgewochen nach rechts kopieren. Dabei ist dieser Code nur Teil eines größeren Makros.
Das Problem dabei:
Die Blöcke der Kalenderwochen können von Mal zu Mal unterschiedlich hohe Zeilen
aufweisen. Also kann ich nicht mit festen Zellbezügen arbeiten.
Ich habe schon ein bisschen was selbst zusammengeschustert, jedoch kriege ich den 2. Teil des Makros, nach den ######, nicht hin. Hab schon etliche Sachen probiert , aber komme jetzt irgendwie nicht mehr bei der ActiveCell.FormulaR1C1 = "=CUMact - CUMlast1" (siehe unten) weiter und bin am verzweifeln :-|
'#############################################################
CUMact = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).End(xlToRight)
CUMlast1 = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).End(xlToRight).End(xlUp).End(xlUp)
letzteZeile = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).End(xlToRight).Offset(3, 0).Select
Selection.NumberFormat = "0_ ;[Red]-0 "
ActiveCell.FormulaR1C1 = "=CUMact - CUMlast1"
Zum besseren Verständnis anbei die Datei:
https://www.herber.de/bbs/user/111825.xlsm
Ich hoffe ihr könnt mir helfen oder mich in die richtige Richtung schubsen.
Danke im Voraus.
Gruß,
Nik