Ich habe ein Skript im Internet gefunden, das von unten nach oben schaut, wo zwei Werte nicht gleich sind
und dann eine Leerzeile einfügt. Also etwa so:
ZNr. Region Absatz
1 Ost 23,34
2 Ost 43,45
3 Ost 18,23
4 Ost 38,43
5 West 11,23
6 West 54,34
7 West 34,43
8 Mitte 64,49
9 Mitte 83,43
Und hier fügt der Code zwischen Zeile 4 und 5 sowie zwischen 7 und 8 ein - SO WEIT SO GUT
Ich möchte aber nun in dieser Leerzeile die Summe für die Regionen einfügen. Das Problem dabei ist
weiters, dass einmal mehr einmal weniger Absätze für jede Region vorhanden sind.
Hat da wer eine Ahnung?
Der Code für das Zeileneinfügen ist:
Dim i As Long
Dim tbl As Worksheet
Set tbl = Sheets(2)
For i = 1000 To 3 Step -1
If tbl.Range("B" & i) tbl.Range("A" & i - 1) Then
tbl.Range("B" & i).EntireRow.Insert Shift:=xlDown
End If
Next i