ich habe mal wieder ein Problemchen.....
In der angehängten Tabelle sollen die (Teil-)Summen des Umsatzes 2007 in das Sheet "Produktgruppe" übertragen werden, leider habe ich keine Ahnung, wie ich das ganze ein wenig "variabler" gestalten könnte.....
Sub Produktgruppen_Summen_eintragen()
Dim n As Integer
Dim m As Integer
Dim Summe
m = 3
For n = 2 To Cells(Rows.Count, 5).End(xlUp).Row
If Cells(n, 5) = "Abgas" Then
Summe = Summe + Cells(n, 10).Value
End If
Next
Sheets("Produktgruppe").Cells(m, 2).Value = Summe
End Sub
Wie kann ich statt der Eingabe von "Abgas", "Rohr", "Haus" etc. hier eine variable Lösung erreichen? Alle Produktgruppen werden bereits durch ein Modul im Sheet "Produktgruppe" 1x aufgelistet (Spalte A).
Zur Info: Jede Teilebezeichnung, auch wenn sie nur 1x vorkommt, bildet unter Produktgruppe sofort eine
eigene Gruppe.
Mit einer SummeWenn-Funktion wäre das ganze normalerweise kein Problem, nur kann ich diese hier zumindest nicht über die "Excel-Funktion" verwenden, da mir ansonsten regelmäßig die Bezüge zerstört würden (liegt daran, dass alle Tabellen auf einem Master aufbauen u die anderen Tabellen im Prinzip nur "Spiegelungen" sind!)
Würde mich freuen, wenn ihr mir weiterhelfen könntet.
Verzweifelte Grüße
Herbert
Zwecks Verständlichkeit einmal ein Tabellen-Dummy....
https://www.herber.de/bbs/user/55481.xls