Sub Makro1()
Dim column As Range
Dim rng As Range
Dim cadr As Integer
Dim SpalteBuchst As String
Set rng = Range("F13:AA13")
Range("F13:F37").Select
For Each column In rng
cadr = column.column
Range(Cells(13, cadr), Cells(37, cadr)).Select
SpalteBuchst = Mid(Cells(1, cadr).Address(), 2, InStr(2, Cells(1, cadr).Address(), "$") - 2)
MsgBox cadr
MsgBox SpalteBuchst
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=@HighlightRedFont($F$12)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13033212
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Next
End Sub