Hallo Experten!
Ich möchte gerne per VBA Zahlen, die sich in einer Spalte befinden aufsummieren und das Ergebnis in einer anderen Spalte einfügen.
Die Werte werden mit einer weiteren Zahl, die sich in Spalte „E“ befindet multipliziert.
Jeder Wert der aufsummiert werden muß befindet sich durch 2, 3 oder mehereren Zellen versetzt vom nächsten wert. Jedoch sind alle Werte in der selben Spalte.
Beispiel:
Wert 1 befindet sich in Spalte „C“ und in Zeile „5“.
Wert 2 befindet sich auch in Spalte „C“ und in Zeile „7“.
Wert 3 befindet sich ebenfalls in Spalte „C“ und in Zeile „13“.
Diese 3 Werte sollen addiert werden. Die Gesamtsumme soll in Spalte E in Zeile 3 geschrieben werden.
Das ganze soll dynamisch gestaltet werden. Das heisst, dass sich in der Spalte „C“ 1-n Zahlen befinden können, die alle aufsummiert werden müssten.
In Spalte „B“ befindet sich auf Höhe der Zahlen das Wort „Unterkategorie“ mit einer Durchnummerierung.
Mein Ansatz:
For j = 1 To Cells(Rows.Count, 3).End(xlDown).Row Step 1
Workbooks(2).Worksheets(wsheet).Cells(j, 3).Select
Do While Workbooks(2).Worksheets(wsheet).Cells(j, 3).Value = "Unterkategorie " & Z
uWert = Workbooks(2).Worksheets(wsheet).Cells(j, 11).Value \* Workbooks(2).Worksheets(wsheet).Cells(j, 5).Value
zSumme = uWert
zeile = zeile + 1
Z = Z + 1
Loop
katGesamtsumme = zSumme
Next j
Irgendwas läuft aber hier schief. Ich komme aber leider nicht darauf was.
Über Eure Hilfe und jeden Tip oder Hinweis würde ich mich sehr freuen.
Viele Grüße aus Köln,
Centauro