ich habe vor einigen Wochen mein Problem hier gelöst bekommen. Danke nochmal an Werner.
Kann aber den alten Beitrag irgendwie nicht mehr editieren.
Hier mal der Code, so wie er bisher ausschaut.
Public Sub aaa()
Dim raBereich As Range, raZelle As Range
Dim loLetzteZeile As Long, i As Long, j As Long
Dim strZellbereich As String
loLetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
Set raBereich = Selection.Columns
Application.ScreenUpdating = False
For i = 13 To loLetzteZeile
For Each raZelle In raBereich
j = raZelle.Column
If strZellbereich = vbNullString Then
strZellbereich = Cells(i, j).Address
Else
strZellbereich = strZellbereich & ";" & Cells(i, j).Address
End If
Next raZelle
Cells(i, 1).FormulaLocal = "=SUMME(" & strZellbereich & ")"
strZellbereich = ""
Next i
Range(Cells(13, 1), Cells(loLetzteZeile, 1)).Value = Range(Cells(13, 1), Cells(loLetzteZeile, 1) _
_
_
).Value
Set raBereich = Nothing
Application.ScreenUpdating = True
End Sub
Nun möchte ich, anstatt die Summe mit diesem Teil des Codes:
Cells(i, 1).FormulaLocal = "=SUMME(" & strZellbereich & ")"
in die Zellen (i, 1) zu schreiben an eine Variable übergeben.
Mein Gedanke war die Variable: "Sum" vor der For-Schleife = 0 zu setzen und dann vor dem Next i mit Sum = Sum + aufzuaddieren.
Ich weiß jetzt allerdings nicht wie ich den Zellbereich dort hinein bekomme.
Ich hoffe ihr könnt mir helfen.
Beste Grüße