Daten sortieren und Summe ziehen per Makro
Dirk
habe hier im Forum ein Makro gefunden um eine Tabelle zu sortieren und eine leer Zeile einzufügen:
Sub SortierenUndLeerzeile()
Dim Zeile As Long
Range("G1").Sort Key1:=Range("G1")
For Zeile = Cells(Rows.Count, "G").End(xlUp).Row To 1 Step -1
If Cells(Zeile, "G") Cells(Zeile + 1, "G") Then Rows(Zeile + 1).EntireRow.Insert
Next
End Sub
Diese funktioniert auch super...nun möchte ich eine kleine Erweiterung noch haben in der Spalte G habe ich Euro Beträge stehen. Ist es möglich nachdem sortiert wurde in der Leerzeile die Summe darüber zu ziehen zu lassen ?
VIELEN DANK IM VORAUS
DIRK
Anzeige