Summenberechnung per VBA
14.06.2021 10:29:54
Peter
ich habe ein Problem mit der Berechnung von Summen. Mit den nachstehenden Codes erstelle ich Berechnungen:
Dim ASaldo_vor_gew_ADatum As String
ASaldo_vor_gew_ADatum = Format(Tb.AutoFilter.Range.Columns(1).Offset(1).SpecialCells(12).Cells(1 - 1).Offset(0, 6), "#,##0.00 ")
Debug.Print ASaldo_vor_gew_ADatum
Dim SummeSpalteFgefiltert As String 'benötigt für Berechnung der gefilterten Wert SpalteF
SummeSpalteFgefiltert = Format(Application.WorksheetFunction.Subtotal(9, Tb.Range("F10:F" & loLetzteB)), "#,##0.00 ")
Debug.Print SummeSpalteFgefiltert
Dim SummeSpalteGgefiltert As String 'benötigt für Berechnung der gefilterten Wert SpalteB
SummeSpalteGgefiltert = Format(Application.WorksheetFunction.Subtotal(9, Tb.Range("G10:G" & loLetzteB)), "#,##0.00 ")
Debug.Print SummeSpalteGgefiltert
Die ersten 3 Zeilen habe ich für die Ermittlung eines Saldobetrags.
Die zweiten 3 Zeilen ermitteln die Summe der SpalteF.
Die dritten 3 Zeilen ermitteln die Summe der SpalteG.
Wie kann ich bitte die Summe der drei Werte erreichen?
Gruss
Peter