ich setzte unten dargestelltes Makro ein um mir Zellen in einer Spalte in Gruppen zusammen rechnen zu lassen. Jetzt ist der Wunsch aufgekommen, dass wenn man einzelne Zeilen ausblendet nur noch der Wert der eingeblendeten Zeilen addiert wird. Gibt es eine Möglichkeit dieses Makro entsprechend zu erweitern?
Leider ist das eingesetzt Makro nicht von mir programmiert und meine Kenntnisse in VBA reichen für eine Erweiterung nicht aus.
Es wäre toll wenn mir jemand helfen könnten.
Sub L_Vergleich()
ActiveSheet.Unprotect Password:="20Klima07"
Dim r As Long 'Zeilen# Gruppe
Dim z As Long 'letzte Zeile einer Gruppe
Dim c As Long 'Spalten#
Dim LoLetzte As Long 'Letzte belegte Zeile in Sp 1
Const LoErste As Long = 11 'Startzeile
Dim sw As Boolean
Dim i As Long
With ActiveSheet
LoLetzte = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte belegte Zelle in Sp A
For r = LoErste To LoLetzte
If .Range("A" & r) "" Then 'Start Gruppe
If .Range("B" & r + 1) "" Then 'wenn zur Grupp mind. 1 Detailzeile _
_
gehört
For z = r + 1 To LoLetzte
If .Range("A" & z) "" Then 'das Ende der Gruppe ist erreicht
z = z - 1 'Nr letzte Detailzeile in Gruppe
Exit For
End If
Next
Application.ScreenUpdating = False
For c = 6 To 11 'Sp F bis M abarbeiten
If .Cells(r, c) = "" Or .Cells(r, c) "" Then 'Summe bild _
wenn Zelle leer oder nicht
For i = r + 1 To z
sw = False
If .Cells(i, c) = "" Or .Cells(i, c) = 0 Then 'Summe nur bilden, _
_
wenn nicht alle Werte leer
'no action
Else
sw = True
End If
If sw = True Then .Cells(r, c) = Application.WorksheetFunction. _
_
Sum(Range(.Cells(r + 1, c), .Cells(z, c)))
Next i
End If
Next c
Application.ScreenUpdating = True
End If
End If
Next r
End With
ActiveSheet.Protect Password:="20Klima07", DrawingObjects:=False, Contents:=True, _
Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFiltering _
:=True
MsgBox "Berechnung ist abgeschlossen"
End Sub
Vielen Dank vorab.
Gruß Brockie