Ist es möglich alle Spalten, die die selbe Überschrift haben (z.B. "Uhrzeit) auf einmal zu formatieren.
LG
Option Explicit
Public Sub Spalten_formatieren()
Dim loSpalte As Long, i As Long
With Worksheets("Tabelle1") 'Blattname anpassen
'Ermitteln der letzten belegten Spalte in Zeile 1
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
'Schleife von Spalte 1 bis letzter blelegten Spalte
For i = 1 To loSpalte
'Wenn Eintrag "Überschrift" dann
If .Cells(1, i) = "Überschrift" Then
'ganze Spalte gelb färben
.Columns(i).Interior.Color = vbYellow
End If
'nächste Spalte
Next i
End With
End Sub
Gruß Werner=Z1S="Uhrzeit"