Hallo zusammen, 

bitte um Hilfe für folgendes Problem. Ich hänge seit ein zwei Tagen an folgendem Problem. 
Bereich Abhängig von akt. Monat summieren und in Zeile ausgeben. 

Fehlercode: 1004 in der rot markierten Zeile.

 

Sub Monate()
Dim i As Long
Dim Monat As Long
Dim ErgebnisZ As Long
Dim Bereich As Range
Dim SpaltenAnzahl As Long

SpaltenAnzahl = Sheets("Ausgabe").Cells(1, Columns.Count).End(xlToLeft).Column
Monat = SpaltenAnzahl - (12 - Format(Now, "mm"))
ErgebnisZ = SpaltenAnzahl + 1
For i = 2 To Sheets("Ausgabe").Cells(Rows.Count, 1).End(xlUp).Row

With Worksheets("Ausgabe")

.Range(i, ErgebnisZ) = WorksheetFunction.Sum(.Range(.Cells(i, Monat), .Cells(i, SpaltenAnzahl)))
End With
Next i

End Sub

Betriebssystem: Windows10
OfficeVersion: 365