Makro um Zeile einzufügen
Micha
Viele Grüße Micha
Option Explicit
Sub EinfGesamtZeilen()
Dim zz As Long
For zz = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(zz, 5) Cells(zz + 1, 5) Then
Rows(zz + 1).Insert
Cells(zz + 1, 5) = Cells(zz, 5) & " gesamt"
End If
Next zz
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Sub Makro1()
Cells(2, 5).Subtotal GroupBy:=1, Function:=xlSum, _
TotalList:=Array(2, 3, 4, 5, 6, 7, 8), Replace:=True, _
PageBreaks:=False, SummaryBelowData:=True
Columns(5).AutoFit
End Sub
Das ist nichts anderes als Daten - Teilergebnisse und auch ohne VBA leicht machbar.