ich moechte unter der Bedingung, dass Spalte A gleich ist, Spalte B summieren und in Zeile Total/ Spalte B schreiben.
Die Total Zeile finde ich bereits, nur hab ich leider ueberhaupt keine Idee wie ich weiterschreiben muss.
Ich versuche mich bereits einzulesen, aber mein Problem ist:
1. Wie bekomme ich die Summe in Spalte B?
2. Wie addiere ich nur die bestimme Range zusammen?
Sub totals()
Dim y As Range, ct As Integer
Set y = Columns("A").Find("Total", lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If y Is Nothing Then Exit Sub
Koennt ihr mir weiterhelfen?
https://www.herber.de/bbs/user/142927.xlsm