Ich bin leider kein Held mit VBA, daher würde ich mich über Hilfe freuen.
Ich füge über folgenden Code in eine intelligente Tabelle eine weitere Zeile ein. Ich möchte gerne hierbei auch die bedingte Formatierung der darüber befindlichen Zeile übernehmen. Weiss jemand wie ich das anpassen kann ?
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
LG, FranziskusV