VBA - Code für Teilergebnis
05.07.2006 12:05:29
Thommy
ich steh wieder mal auf der Leitung! :-(
Wie kann ich diesen 3 Code's auf 1x zusammenfassen, damit ich alle 3 Werte anzeigen lassen kann.
Mein Problem ist, dass ich in einer Teilergebnis-Funktion einmal die Anzahl brauche und 2x die Summe, und in der Abfrage kann ich nur entweder Anzahl oder Summe eingeben.
Gruppieren tu ich nach der Spalte 5 (Länderkennzeichen)
Die Anzahl der Zeilen soll berechnet werden von Spalte 7
Und die Summe der Werte soll berechnet werden von den Spalten 9 + 15.
Sub Teilergebnis()
Selection.Subtotal GroupBy:=5, Function:=xlCount, TotalList:=Array(7) _
, Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(9) _
, Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(15) _
, Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
ich hoffe (bzw. bin mir sicher) daß ihr mir helfen könnt!! ;-)
lg Thommy
Anzeige