Zelleninhalte ListObject_ListRows_Add
26.08.2022 15:20:52
Wasser
meine Datei besteht aus 2 Blättern. Im Blatt "Tabelle1" ist eine Tabelle mit dem Namen "TabelleA" definert, welche Bedingte Formatierungen beinhaltet.
Die Tabelle erweitere ich mit dem Makro "Neue Zeile hinzufügen" und definiere dabei auch eine Zeilenhöhe für die neue Zeile, beides funktioniert im Grundsatz.
Aber:
Mich irritiert jedoch, dass die neue Zeile teilweise befüllt ist. Ich habe eigentlich gedacht, dass sie leer ist.
Dieser Umstand spielt mir jedoch in die Karten, da ich im weiteren Verlauf Spalte P von oben nach unten kopieren möchte, das kann ich mir dadurch sparen. Wie bekomme ich aber auch die Spalten AC:AE von oben nach unten kopiert, ohne dass es mir bei weiteren Copy-Paste-Schritten die Bedingte Formatierung doppelt?
Kann mir hier jemand weiterhelfen?
Vielen Dank schon mal vorab!
Hier liegt meine Beispieldatei: https://www.herber.de/bbs/user/154829.xlsm
Ich nutze folgenden Code:
Sub Neue_Zeile_hinzufügen()
Dim TabelleA As ListObject
Dim TabellenEnde As Integer
Worksheets("Tabelle1").Activate
Set TabelleA = ActiveSheet.ListObjects("TabelleA")
TabelleA.ListRows.Add
TabellenEnde = TabelleA.Range.Rows(TabelleA.Range.Rows.Count).Row
ActiveSheet.Rows(TabellenEnde).RowHeight = 60
End Sub