Hallo Zusammen,
ich hoffe ihr könnt mir mit meinem Code geschnipsel helfen, denn ich komme einfach nicht drauf.
Ziel:
Es sollen alle Werte (größer 0 ) aus Spalte-R zusammen gerechnet werden und in die letzte Zeile +1 in Spalte-M der Gesamtwert geschrieben werden.
Hiermit komme ich auf den Wert:
Application.WorksheetFunction.Sum(ActiveSheet.Range("R:R"))
Hiermit komme ich in Spalte-M auf die gewünschte Zeile:
Range("M65536").End(xlUp).Offset(1, 0).Select
Leider ist noch der Fehler vorhanden, dass er immer unter die letzte formartierte Zelle springt anstatt unter den letzten "wirklichen" Eintrag.
Hat jemand eine Idee, wie ich das kombinieren kann, und möglichst den Fehler mit der letzten Zelle hinbekomme ?
Besten Dank im Voraus