Hallo zusammen,
Ich komme wieder mit einem VBA Code an meine Grenzen, vielleicht kann mir ja hier jemand helfen.
Und zwar habe ich ein Dokument in welchem via Button Zeilen und Spalten eingefügt werden können.
Die Grünen Kästchen bilden jeweils die Summen der Werte darüber (außer bei Zielwert&Istwert, da werden die Summen der Werte von links gebildet)
Dadurch das die Datei so dynamisch ist (da man Spalten & Zeilen einfügen und löschen kann) habe ich Probleme die Summenformel so dynamisch zu gestalten das immer die richtige Summe berechnet wird.
Mein Ansatz bisher ist wie folgt:
Dim n
Dim Summe
For n = 5 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(n, 1).Value = "Test1" Then
Summe = Summe + Cells(n, 4).Value
End If
Next
Cells(n - 10, 4).Value = Summe
For n = 5 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(n, 1).Value = "Test 2" Then
Summe = Summe + Cells(n, 4).Value
End If
Next
Cells(n - 4, 4).Value = Summe
End Sub
Problem ist das ich mit dieser Methode für jede Summe diesen Code schreiben muss, und wenn ich weiter in die Spalten nach rechts gehe zählt der Code alle Werte anstelle nur der Werte der jeweiligen Spalte.
Hat hier jemand eine Alternative Lösung für das Problem?
Vielen Dank im Voraus!