Summenbildung
22.04.2015 11:19:26
Norbert
ich habe nachfolgendes Script erhalten, welches mir die Summe je Spalte Q-S-U-W jeweils nach dem letzten Wert der jeweiligen Spalte einträgt.
Public Sub Summen()
Dim lngColumn As Long
For lngColumn = 17 To 23 Step 2
Cells(Rows.Count, lngColumn).End(xlUp).Offset(1, 0).Value = _
WorksheetFunction.Sum(Range(Cells(2, lngColumn), _
Cells(Rows.Count, lngColumn).End(xlUp)))
Next
End Sub
Jetzt wollte ich dies abändern wie in Abbildung:
1. Neue Summenbildung der Spalten N-P-R-T-V
2. alle Summen auf gleicher Linie
3. Summen Fettschrift und grün hinterlegt.
neu kommt hinzu, dass die Werte für die Summenbildung über eine wenn...dann, sonst 0 Formel herkommen. Bei obigen Script habe ich festgestellt, dass es nur bei direkt eingegeben Zahlen funktioniert.
Kann mir jemand das Script vervollständigen?