Inmitten der Tabelle kommt eine Summenzeile und Du möchtest davor eine Zeile einfügen?
Hast Du schonmal mit intelligenten tabellen gearbeitet? (ich weiss, liest sich jetz komisch - is aber so gemeint ;)
Klicke in den Datenbereich der Tabelle und anschlißend STRG+T.
Jetzt wird der Bereich in eine intelligente Tabelle konvertiert.
Wenn Du nun in den Datenbereich klickst, erscheint im Menüband eine weitere Option: "Tabellentools".
Dort suchst Du nach "Ergebniszeile anzeigen".
In der Spalte wo Du eine Summe haben möchtest, kannst Du nun die Summenformel auswählen.
So weit so gut - wenn Du nun eine Zeile hinzufügen möchtest, kannst Du das bequem mit einem VBA-Code machen. (folgt noch)
Der Clou - die Zeilen werden immer vor der Summenzeile Deiner int.Tabelle eingefügt.
Natürlich kannst Du mehrere solcher Tabellen erzeugen. Identifiziert werden diese über Namen. Wenn Du auf Tabellentools gehst, kannst Du links einen Namen vergeben bzw den vorgegebenen Namen ändern.
Und so fügst Du diesen abellen Zeilen hinzu:
https://docs.microsoft.com/de-de/office/vba/api/excel.listrows.add
Sub ZeileHinzufuegen()
With ActiveSheet.ListObjects("Tabelle1").ListRows.Add
.Range(1, 1).Value = "Zelle 1 - der neuen Zeile"
.Range(1, 2).Value = "Zelle 2 - der neuen Zeile"
End With
End Sub
gruß
Marco
|