Wen es interessiert:
Der Vollständigkeit halber anbei das Makro zu Andreas' Problemstellung, welches er nun verwendet.
Mich persönlich würde interessieren, ob es da auch noch einen einfacheren und/oder eleganteren Lösungsansatz gibt.
Grüße
Hans-Werner :-))
Sub InsertRowByMovingRange
' Bei dem normalen Einfügen einer neuen Zeile in einer Tabelle hat diese
' Zeile immer die (Format-) Eigenschaften der vorherigen Zeile, was zu
' Problemen führen kann, wenn man direkt nach der Überschriftszeile eine
' Leerzeile einfügen will, welche die (Format-) Eigenschaften der folgenden
' Datenzeilen haben soll. Das Makro fügt nach der Überschriftszeile eine
' Leerzeile ein, wobei diese die (Format-) Eigenschaften der folgenden
' Datenzeilen hat. Zellverweise in den Datenzeilen bleiben erhalten.
' [0] Das Tabellenblatt bestehe aus einer Überschriftszeile und beliebig
' vielen nachfolgenden Datenzeilen.
' [1] Der Bereich der Datenzeilen wird um 1 Zeile nach unten verschoben,
' so dass zwischen Überschriftszeile und Datenzeilen eine Leerzeile
' entsteht.
' [2] Der Inhalt der ersten Datenzeile wird in diese Leerzeile kopiert.
' [3] Bestimmte Zellinhalte
' + nummerischer Wert
' + Datum/Uhrzeit
' + Text
' + Funktionen (beispielsweise Zellverweis)
' werden gelöscht - kann angepasst werden (s.u.). Alles andere bleibt
' erhalten.
'