Summieren bis gesuchter Wert
26.09.2017 16:40:10
Max
Ich habe folgendes Problem:
Ich habe in Excel ein lange Liste mit Artiekln und daneben jeweils Werte.
Man kann es sich als eine Aneinanderreihung von Einkaufszetteln vorstellen.
Dabei ist der letzte Posten immer die Mehrwertsteuer.
Jetzt möchte ich einen Code schreiben bei dem er die Werte von Anfang der Einkaufslist bis Ende (Mehrwertsteuer) summiert. Nachdem es mehere Listen hintereinander sind muss der Code selbstständig erkennen wo sich die Zelle mit dem Inhalt "Mehrwertsteuer" befindet und daneben dann alle Werte ausfummieren.
Leider bin ich noch ein ziemlicher Anfänger was VBA angeht.
Sub Versuch()
Dim Zähler As Long
Dim Bereich As Range
Zähler = 1
For i = 1 To 5000
Zähler = Zähler + 1
Range("A" & Zähler).Activate
If ActiveCell = "Mehrwertsteuer" Then
WorksheetFunction.Sum (Range("B1:B" & Zähler))
End If
Next i
End Sub
Haut aber vorne und hinten nicht hin.
Vielen Danke für die Hilfe schon mal im vorraus!
Liebe Grüße Max