Sortieren_neue-Zeile_Summe
01.12.2021 11:12:22
Hendrik
Ich habe eine Excel-Datei. Pro Monat wird ein neues Tabellenblatt angelegt mit den bestellten Müsliarten.
Das Ziel:
Ein Gesamttabellenblatt zu haben, das
1) alle Zeilen aller Tabellenblätter enthält (✔)
2) die Müsliarten sortiert (✔)
3) nach jeder Gruppe, die durch das Sortieren entsteht, eine leere Zeile einfügt (✔)
4) in der in 3) eingefügten Leerzeile eine Summe der sortierten Müsliarten bilden (x)
1) wird automatisch ausgeführt, wenn man das Gesamtblatt anklickt, 2) und 3) werden durch den angelegten Button ausgefürt.
Was noch fehlt ist Schritt 4). Kann mir da jemand helfen? Ich habe eine Beispieldatei erstellt und mit angehängt.
Den Code vom Einfügen der Zeile (3) füge ich hier mit rein. Ich habe die Hoffnung, dass man nur bei der fetten Stelle einen Zusatz hinzufügen muss :-)
Sub tt()
Dim i As Long
Application.ScreenUpdating = False
Range("A3").Sort _
key1:=Range("A3"), order1:=xlAscending
'key2:=Range("D2"), order2:=xlAscending, _
'Header:=xlYes
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(i, 1) Cells(i - 1, 1) Then
Rows(i).Insert
End If
Next
Application.ScreenUpdating = True
Rows("2:2").Select
Selection.Delete
End Sub
Die Beispieldatei:https://www.herber.de/bbs/user/149505.xlsm
Ich würde mich freuen, wenn mir da jemand helfen kann. :-)
Viele Grüße!
Hendrik