Da gibt es unterschiedliche Möglichkeiten anzusetzen; alle funktionieren jedoch per Schleife (wie auch sonst...?).
' Bestimme Bereich: B1:%1
' - % ist dabei die Unbekannte, welche per Range.End(xlToLeft) bestimmt wird
Set rngHeaderHelpers = wks.Range("B1", wks.Cells(1, wks.Columns.Count).End(xlToLeft))
' falls wir links von Spalte B landen, gibt es keinen Inhalt in der Zeile1
If rngHeaderHelpers.Column < 2 _
Then Exit Sub
For Each rngCell in rngHeaderHelpers.Cells
'Sonderzeichen1?
If InStr(rngCell.value, "+") > 0 Then
Call Funktion1(rngCell)
End If
'Sonderzeichen2?
If InStr(rngCell.value, "*") > 0 Then
Call Funktion2(rngCell)
End If
'Sonderzeichen3?
If InStr(rngCell.value, "~") > 0 Then
Call Funktion3(rngCell)
End If
Next
Code ungetestet! (Freihand getippt)
|