Kommazahlen Summeren bei leerer Zeile
29.01.2021 09:42:09
Thomas
Vielen Dank im Voraus
Sub Summieren()
Dim LZeilen As Long, LZeileIntern As Long, Sum As Long
Dim IntSpalte As Integer
With Worksheets("Tabelle1")
'Zeilen
For LZeilen = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
'SummenZeile
If .Cells(LZeilen, 1) "" Then
'relevante Spalten
For IntSpalte = 2 To 9
LZeileIntern = LZeilen + 1
Do While .Cells(LZeileIntern, IntSpalte) ""
'Summieren
Sum = Sum + .Cells(LZeileIntern, IntSpalte)
LZeileIntern = LZeileIntern + 1
Loop
'Eintragen
.Cells(LZeilen, IntSpalte) = Sum
'Summe leeren
Sum = 0
Next IntSpalte
End If
Next LZeilen
End With
End Sub