Set
rngHeaderHelpers = wks.Range(
"B1"
, wks.Cells(1, wks.Columns.Count).
End
(xlToLeft))
If
rngHeaderHelpers.Column < 2 _
Then
Exit
Sub
For
Each
rngCell in rngHeaderHelpers.Cells
If
InStr(rngCell.value,
"+"
) > 0
Then
Call
Funktion1(rngCell)
End
If
If
InStr(rngCell.value,
"*"
) > 0
Then
Call
Funktion2(rngCell)
End
If
If
InStr(rngCell.value,
"~"
) > 0
Then
Call
Funktion3(rngCell)
End
If
Next