Bedingte Formatierung bei Einfügen Zeile in ListObject

Private Sub CommandButton3_Click()

'Fügt eine Blattzeile ein so dass die intelligente Tabelle 'Monatlicher Stand' um eine Zeile nach unten erweitert wird.

    Dim ws As Worksheet

    Dim meineTabelle As ListObject

    Dim letzteZeile As Long

    Dim blattZeilennummer As Long

    

    

    Set ws = Me

    Set meineTabelle = ws.ListObjects("TbMonatlicherStand") '!!! Namen der intelligenten Tabelle anpassen

    

    ' Ermittle die letzte Zeile in der Tabelle

    letzteZeile = meineTabelle.ListRows.Count

    

    ' Überprüfe, ob die Tabelle Zeilen hat

    If letzteZeile > 0 Then

        ' Ermittle die Blattzeilennummer der letzten Zeile

        blattZeilennummer = meineTabelle.ListRows(letzteZeile).Range.row

        

        ' Springe eine Zeile tiefer und füge eine neue Zeile ein

        ws.Rows(blattZeilennummer + 1).Insert Shift:=xlDown

        

        ' Jetzt kannst du mit der neu eingefügten Zeile arbeiten

        MsgBox "Eine Zeile für eine weitere Übernahme wurde eingefügt"

    Else

        MsgBox "Die Tabelle hat keine Zeilen."

    End If

End Sub