VBA -Probleme
08.06.2022 12:41:10
VincentValt
es geht um die folgenden Spalten und Zeilen.
Spalte A Spalte B
01 AAA 10
01 AAA 11
01 AAA 12
02 AAB 1
02 AAB 2
02 AAB 3
02 AAB 4
03 AAC 15
03 AAC 16
03 AAC 17
Ich möchte unterhalb jeder letzten Zeile der jeweiligen ZeilenBezeichnung (01 AAA etc.) eine neue Zeile mit einer Summe für die jeweilige Bezeichnung einfügen.
So müsste dann das aussehen.
Spalte A Spalte B
01 AAA 10
01 AAA 11
01 AAA 12
Summe 33
02 AAB 1
02 AAB 2
02 AAB 3
02 AAB 4
Summe 10
03 AAC 15
03 AAC 16
03 AAC 17
Summe 48
Der Datensatz ist groß und es gibt verschiedene Tabellenblätter bei denen die Anzahl der jeweiligen Zeilenbezeichnungen verschieden ist. Beispielsweise taucht in einem Tabellenblatt zehn Mal die Zeile 01 AAA auf.
Ich dachte an eine wenn-Fkt auf VBA- Basis.
Im Sinne von
wenn Zeile (i) Zeile ( i+1)
dann neue Zeile einfügen....
Ich bin absoluter VBA-Neuling und habe mir etwas aus dem Internet zusammengebastelt.
Ich hoffe auf eure Untersützung.
VG
Vincent
Sub insert()Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(xlDown).Row To 2 Step 1
If Cells(i, 1) Cells(i + 1, 1) Then
Cells(i + 2, 1).EntireRow.insert
End If
End Sub
https://www.herber.de/bbs/user/153465.xlsx