Office: Tabellenzeile automatisch hinzufügen

Habe ich irgendwie die möglichkeit, wenn in einer Tabelle z.B. etwas in Zeile 3 Steht, automatisch eine 4te Zeile unten ranhängen zulassen? (Formatierung der Tabelle sollte dabei erhalten bleiben).

Bzw diese auch wieder zu löschen wenn kein Inhalt in dieser Zeile vorhanden ist.

Oder ist das nur mit VBA in excel zu realisieren ?

Pseudocode hätte ich ja, aber in VBA vermag ich das leider noch nicht zu übersetzen.

 

Hallo noctis,

da Du schreibst, dass Du Excel2007 hast, nehme ich an, dass Du mit 'Tabelle' die neue Möglichkeit einer (Daten)tabelle innerhalb eines Arbeitsblattes meinst.
Im folgenden Makro habe ich Dir ein ausgiebig dokumentiertes Musterbeispiel für die VBA-Programmierung dieser Tabellen angefügt.

Code:

Sub Makro31()
  Dim MySheet As Worksheet
  Dim MyTable As ListObject
    'Angenommen: Ich habe ein Arbeitsblatt 'Tabelle1'
  Set MySheet = ActiveWorkbook.Worksheets("Tabelle1")
    'In diesem habe ich eine Tabelle 'MeineTabelle' im Bereich D12:F15
    'wobei diese eine Kopfzeile im Bereich D12:F12 hat
    'und ferner eine Ergebniszeile im Bereich D15:F15,
    'womit Platz für 2 Datenzeilen im Bereich D13:F14 bleibt.
  Set MyTable = MySheet.ListObjects("MeineTabelle")
    'Mit folgender Anweisung füge ich eine Leerzeile an
    'als letzte Datenzeile im Bereich D15:F15 noch vor
    'der Ergebniszeile, die damit in den Bereich D16:F16 verschoben wird.
  MyTable.ListRows.Add
    'In dieser angefügten Leerzeile (Datenzeile 3 = Bereich D15:F15)
    'werden die Zellen mit Daten befüllt (Spalte 1-3),
    'wobei diesen Daten automatisch die Formatierung der jeweiligen
    'Tabellenspalte zugewiesen wird:
  With MyTable.ListRows(3).Range
    .Cells(1) = -3: .Cells(2) = 3333: .Cells(3) = -55.4
  End With
    'Mit folgender Anweisung lösche ich die Datenzeile 2 (=Bereich D14:F14)
    'wodurch die Datenzeile 3 und die Ergebniszeile um 1 Zeile
    'noch oben geschoben werden.
  MyTable.ListRows(2).Delete
    'usw. ....
End Sub

All das kann man natürlich auch interaktiv (=ohne Makro) im Arbeitsblatt selbst ausführen. Insbesondere wenn man an bestehende Datenzeilen noch weitere Datenzeilen anfügen will. Tut man dies, sollte man, um sich das Leben zu vereinfachen, eine eventuelle Ergebniszeile ausschalten.
Fügt man dann Daten in der nächsten Leerzeile an, wird automatisch wie im Makro die Formatierung der Datenspalten der Tabelle angewandt.

Will man nur Zeilen der Tabelle (nicht auch die des umgebenden Tabellenblattes!) löschen (=entfernen), muss man unbedingt darauf achten, dass nur der Zeilenbereich innerhalb der Tabelle markiert ist (Mauszeiger am linken Rand des Zeilenbereiches positionieren; der Mauszeiger wird zu einem horizontalen Pfeil nach rechts; Linksklick mit der Maus --> Zeilenbereich ist korrekt markiert).