Mehrere Überschriften im Tab-Blatt farbig hinterlegen
14.09.2023 10:05:52
Pitt
Ich möchte gern, das nachdem die Tabellen in mein Tab kopiert worden sind, die Überschriften eingefärbt werden.
Die 1 Tabelle das funktioniert mit dem Code, aber alle anderen werden nicht angefasst.
Sie haben auch unterschiedliche Längen.
Geht sowas überhaupt?
Sub UeberschriftenFarbig()
Dim ws As Worksheet
Dim tbl As ListObject
Dim headerCell As Range
Dim headerColor As Long
headerColor = RGB(255, 0, 0) ' Zum Beispiel Rot
On Error Resume Next
Set ws = ThisWorkbook.Sheets("Personal")
On Error GoTo 0
If Not ws Is Nothing Then
For Each tbl In ws.ListObjects
For Each headerCell In tbl.HeaderRowRange.Cells
headerCell.Interior.Color = headerColor
Next headerCell
Next tbl
Else
MsgBox "Das Arbeitsblatt ""Personal"" wurde nicht gefunden.", vbExclamation
End If
End Sub
Danke
Gruß Pitt