Summe per VBA bilden
05.10.2020 11:39:44
Matthias
ich möchte eine Summe via Makro bilden, allerdings ist die zu berücksichtigende Anzahl der Zeilen variabel.
Ich habe es folgendermaßen versucht:
Sub summe()
Dim l as Long
Dim lmax as Long
Dim swert as Long
Dim zwert as Long
Cells(1, 37).Value = "Tour-Summe"
l = 3
lmax = Worksheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Do Until l > lmax
If Cells(l, 36).Value Cells(l - 1, 36).Value Then
Cells(l - 1, 34) = swert
ElseIf Cells(l, 36).Value Cells(l + 1, 36).Value Then
Cells(l, 34) = zwert
End If
Cells(l, 37).Value = "=SUMME(" & swert & ":" & zwert & ")"
l = l + 1
Loop
End Sub
Ich lasse den Code prüfen, ob die Zelle l - 1 den gleichen Wert in Spalte 36 hat,
wenn ja, dann soll die Zelle (l - 1, 34) den ersten Wert bilden (AH2 in dem Fall)
Wenn l + 1 einen anderen Wert hat, dann soll l, 34 den letzten Wert der Summe bilden, beispielsweise AH10.
Anschließend soll eine Zelle rechts von zwert (AH10) die Summe gebildet werden "=SUMME(AH2:AH10)".
Kann mir jemand erläutern wie dies in VBA umsetzbar ist?
Vielen lieben Dank vorab und besten Gruß
Matthias