Summenbildung

Bild

Betrifft: Summenbildung
von: Norbert
Geschrieben am: 22.04.2015 11:19:26

Hallo Spezialisten
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?
Userbild

Bild

Betrifft: AW: Summenbildung
von: JoWe
Geschrieben am: 22.04.2015 12:31:55
Hallo Norbert,
vllt. so:

Public Sub Summen()
    Dim lngColumn As Long
    Dim ze 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
    ze = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
    For lngColumn = 14 To 22 Step 2
        With Cells(ze, lngColumn)
            .Value = WorksheetFunction.Sum(Range(Cells(2, lngColumn), _
                Cells(Rows.Count, lngColumn).End(xlUp)))
            .Interior.ColorIndex = 35
        End With
    Next
End Sub

Gruß
Jochen

Bild

Betrifft: AW: Summenbildung
von: Norbert
Geschrieben am: 22.04.2015 13:06:30
der neue Teil funktioniert nicht. Die Summe je Spalte Q-S-U-W wird für die neue Version nicht mehr benötigt. (War nur als Bsp. gedacht)
Die Werte mit einer Formelherkunft werden in deinem Script nicht summiert.
Gibt es noch eine andere Lösung?

Bild

Betrifft: AW: Summenbildung
von: Rudi Maintaire
Geschrieben am: 22.04.2015 13:18:59
Hallo,
Die Werte mit einer Formelherkunft werden in deinem Script nicht summiert.
dann sind es Texte.
Gruß
Rudi

Bild

Betrifft: AW: Summenbildung
von: Norbert
Geschrieben am: 22.04.2015 13:28:37
Wie sieht denn das Script aus? Summenbildung aus Formelwerte geht ja normal auch.
Wäre es besser, über eine Hilfsspalte die Formelwerte kopieren und nur Werte einfügen.
Was meinst du?

Bild

Betrifft: AW: Beispielmappe hochladen oT
von: JoWe
Geschrieben am: 22.04.2015 13:47:10


Bild

Betrifft: AW: Summenbildung
von: Rudi Maintaire
Geschrieben am: 22.04.2015 13:50:34
Hallo,
Worksheetfunction.Sum macht nichts anderes als die Funktion Summe() und Summe ignoriert Textwerte.
Sorge dafür, dass deine Formeln Zahlen ergeben.
Gruß
Rudi

Bild

Betrifft: AW: Summenbildung
von: Norbert
Geschrieben am: 22.04.2015 14:15:54
hier die Beispieldatei
https://www.herber.de/bbs/user/97233.xlsx

Bild

Betrifft: AW: Summenbildung
von: Rudi Maintaire
Geschrieben am: 22.04.2015 14:33:56
Hallo,

Sub summe()
  Dim lRow As Long, lCol As Long
  lRow = Cells(1, 1).CurrentRegion.Rows.Count
  For lCol = 14 To 22 Step 2
    With Cells(lRow + 2, lCol)
      .Value = WorksheetFunction.Sum(Range(Cells(2, lCol), Cells(lRow, lCol)))
      .Interior.Color = RGB(215, 228, 188)
      .Font.Bold = True
    End With
  Next
End Sub

Gruß
Rudi

Bild

Betrifft: AW: Summenbildung
von: Norbert
Geschrieben am: 22.04.2015 14:47:28
bei mir passiert nichts, was mache ich falsch? Habe dein Script im Modul1)
https://www.herber.de/bbs/user/97236.xls

Bild

Betrifft: AW: Summenbildung
von: Rudi Maintaire
Geschrieben am: 22.04.2015 14:51:00
Hallo,
bei mir passiert nichts
was heißt das?
Gruß
Rudi

Bild

Betrifft: AW: Summenbildung
von: Norbert
Geschrieben am: 22.04.2015 14:53:48
es werden keine Summen gebildet

Bild

Betrifft: AW: Summenbildung
von: Rudi Maintaire
Geschrieben am: 22.04.2015 15:31:27
ohne Hallo,
die stehen doch in Zeile 382.
und ohne Gruß

Bild

Betrifft: AW: Summenbildung
von: JoWE
Geschrieben am: 22.04.2015 19:01:33
hmm,
Excel gut war in diesem Fall offenbar nicht gut genug, null ist eben nicht nichts.
Die Lösung ist eigentlich nicht sehr unterschiedlich von der von mir vorgeschlagenen, oder?
Gruß
Jochen

Bild

Betrifft: AW: Summenbildung
von: Rudi Maintaire
Geschrieben am: 22.04.2015 20:10:55
Hallo Jochen,
deine AW habe ich nicht gelesen.
Ich hab aber nen Verdacht: Eigentlich will er eine Summenformel anstatt der Summe.
Gruß
Rudi

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Summenbildung"