Sub setFC_Mitarbeiter(strWs As String, sAdrs As String)
Dim ws As Worksheet
Set ws = Worksheets(strWs)
With ws.Range(ws.Range("A" & ws.Range(sAdrs).row), ws.Range(sAdrs))
Call deletefc(strWs, "Mitarbeiter")
.FormatConditions.Add Type:=xlExpression, Formula1:="=$H6=""Mitarbeiter"""
With .FormatConditions(.FormatConditions.Count)
With .Interior
.PatternColorIndex = xlAutomatic
.ColorIndex = 40
End With
.StopIfTrue = False
End With
End With
End Sub