Liebe Excel- Nutzer
Kann mir jemand bei meinem Problem helfen, ich weiß im Moment nicht, wie in einer Gruppe die Summe der Untergruppe bilden soll.
Hier mein Beispiel:
Tabelle Spalten: A bis H
Spalte A: Gruppe (1, 2, 3)
Spalte B: Untergruppe ( „C_12“, „ST“,…..“G“)
Spalte E: Wert
Spalte H: berechneter Wert abgelegt

Ich habe ein Makro zur Berechnung de Werte angefangen:


Sub berechnen()
Dim Probe, PR(3) As Integer
Dim Z, lZ, sP As Integer
Dim PrName As Range, ToxName As Range

‘ die Gruppen in Spalte A, jede Gruppe hat die gleichen Untergruppen
PR(1) = "R1"
PR(2) = "R2"
PR(3) = "R3"
,
‘ Untergruppen in Spalte B und Werte in Spalte E mit daraus berechneten Werten in Spalte G

For Probe = 1 To 3
Set wks = activeWorksheets
lZ = Range("A65536").End(xlUp).Row
lSp = Range("IV1").End(xlToLeft).Column
‘Werte für Untergruppen berechnen
For T = 2 To lZ
If (Cells(T, 2) = "C12") Then Cells(T, 8) = (Cells(T, 5).Value * 0.07)
ElseIf (Cells(T, 2) = "ST") Then Cells(T, 8) = (Cells(T, 5).Value * 1.24)
ElseIf (Cells(T, 2) = "DC1") Then Cells(T, 8) = (Cells(T, 5).Value * 0.7)
ElseIf (Cells(T, 2) = "DC2") Then Cells(T, 8) = (Cells(T, 5).Value * 0.71)
ElseIf (Cells(T, 2) = "G14") Then Cells(T, 8) = (Cells(T, 5).Value * 0.8)
ElseIf (Cells(T, 2) = "G") Then Cells(T, 8) = (Cells(T, 5).Value * 0.3)
End If
Next T
‘ jetzt soll der Wert für “GT” in der Gruppe 1 berechnet werden, wenn in Spalte E dafür kein Wert enthalten ist; dieser Wert berechnet sich aus der Summe der oben berechneten Werte „C12“ bis „G“
For T = 2 To lZ
If (Cells(T, 2) = "GT" And Cells(T, 5) > 0) Then End If
Else
‘hier komme ich jetzt nicht weiter, denn es soll nur die Summe der jeweiligen berechneten Gruppe gebildet werden; kann ich jetzt einfach die Summe bilden oder muss ich die Gruppe wieder erst ansprechen, indem das Feld der ersten Spalte abgefragt wird

End If