Hi! Vielleicht könnt ihr mir kurz helfen?! Würde gern mit VBA einen Bereich, also die letzten Zellen z.B. "B... bis M..." suchen lassen und die Summe von den Werten der Zellen in eine Formel übergeben! Habe mir das mal "Geschrieben". Kommt aber immer nur bei Bereich(SUMME) 0 oder 1 Raus ....
Dim Bereich As Integer
Bereich = Application.WorksheetFunction.Sum(Range("B6000:M6000").End(xlUp).Offset(0, 0).Select)
Range("N6000").End(xlUp).Offset(1, 0).FormulaLocal = "=SUMME(" & Bereich & ")" & "/" & "MONAT" & "(" & "Heute()" & ")" & ""
|