HERBERS Excel-Forum - die Beispiele

Thema: Zwischensummen eintragen

Home

Gruppe

Allgemein

Problem

Wie kann ich beim Wechsel zu einer neuen Artikelgruppe in einer Liste - abhängig vom 1. Buchstaben - eine Summenzeile eingefügen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub InsertSums()
   Dim iRow As Integer, iRowL As Integer, iStart As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row + 1
   For iRow = iRowL To 2 Step -1
      If Left(Cells(iRow, 1).Value, 1) <> _
         Left(Cells(iRow - 1, 1).Value, 1) Then
         Rows(iRow).Insert
         iStart = iRow - 1
         Do Until Left(Cells(iStart, 1).Value, 1) <> _
            Left(Cells(iStart - 1, 1).Value, 1)
            iStart = iStart - 1
            If iStart = 1 Then Exit Do
         Loop
         Cells(iRow, 2).Value = _
            WorksheetFunction.Sum( _
            Range(Cells(iStart, 2), Cells(iRow - 1, 2)))
         Cells(iRow, 1).Value = "Summe:"
      End If
   Next iRow
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Berechnen

scrollen berechnen Anfangskapital berechnen
Makro/VBA: Neu berechnen bis *Teil 2* Makro/VBA: Neu berechnen bis
Bestimmte Zelle mit Makro berechnen Range-Wert aus der Statistik berechnen
Zeiten (diff. in Monaten) berechnen Auflistung von Zahlen, ohne diese zu berechnen
nach 2 Werten suchen und berechnen Trend/Entwicklung berechnen
zellen berechnen Staus des Berechnens anzeigen
Zwischenzeiten berechnen Pivot - Berechnendes Feld
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
XY-Diagramm, Funktionswerte berechnen Werte bereichsweise berechnen
Arbeitstage berechnen Zinsen berechnen in VBA (Fehler)
Kalendarwoche berechnen Anzahl Tage berechnen
Problem mit copy-paste bei manuellem berechnen Matrix / Korridor berechnen
Arbeitstage berechnen Daten aus Pivottabelle berechnen
berechnen mit Combobox Soll eintragen und Zwischenstände berechnen
Doppelte Werte nicht berechnen Zinssatz mit Hilfe des Datums berechnen
Trend berechnen Restliche Tage berechnen
Zwischensumme nicht mitberechnen Bei gleichen Texten Summe berechnen
Überstunden berechnen Dynamisches Diagramm + berechnende Zellen
Formel berechnen? Zellenanzahl eines Bereiches berechnen
allgemein Wie kann ich Exccel beim berechnen *bremsen*?
Abfahrtszeit berechnen Zwischenwerte berechnen
Inhalt+Anzahl berechnen liefertermine berechnen
Rang berechnen summe aus zellen berechnen
Bundesliga Tabellenplatz berechnen ohne Matrix Intervalle berechnen und aufs Tabellenblatt
Arbeitszeit incl. Pausen berechnen Excel bleibt im Berechnen-Modus