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 in eine intelligente Tabelle konvertiert.
Wenn Du nu nin den Datenbereich klickst, erscheint im Menüband nun ein weiteer 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. (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 überschreiben.
Wie folgt, fügst Du solchen Tabellen 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
|