Interior.Color intelligente Tabelle
07.06.2019 12:21:45
Felix
ich habe ein Problem mit einer TAbelle,, welche ich als ListObject formatiert habe und über ein makro mit Werten befülle.
Das Problem besteht darin, dass ich zu Monatsbeginn meine Tabelle übr ein Makro entleere und somit kein Eintrag mehr vorhanden ist. Wenn ich im Anschluss wieder einen Eintrag zur tabelle hinzufüge, dann übernimmt Excel die Formatiereung der Kopfzeile. In dieser ist beispielsweise die Hintergrundfarbe grau.
Also habe ich mir gedacht ich schreibe ein Makro, welches automatisch ausgeführt wird wenn eine Zeile zugefügt wird und die Tabelle einmal so formatiert wie ich sie haben möchte. (Der Mitarbeiter der damit am Ende arbeiten soll ist nicht in der Lage die Tabelle anständig zu formatieren. Dann sieht sie jeden Monat unterschiedlich aus)
Sub TabelleFormatieren()
Dim Zeile As Long
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("Abgänge")
With tbl
For Zeile = 2 To .UsedRange.Rows.Count
If Zeile Mod 2 = 0 Then
.Rows(Zeile).Interior.ColorIndex = 33
End If
Next Zeile
End With
End Sub
Kann mir jemand weiterhelfen wie ich hier weiterkomme ?
Grüße
Felix