Function

Function gebastelt:

Function Segment(B)
If B = "Müller1" Or B = "Müller2" Or B = "Müller3" Then
Segment = "Muster1"
ElseIf B = "Huber1" Or B = "Huber2" Then
Segment = "Muster2"
End If
End Function




Funktioniert soweit.

Nun habe ich das Problem, dass weitere neue Namen hinzukommen (z.B. Mayr,

Schmidt usw.) die alle dann mit "Muster3" als Ergebnis auftauchen sollen.



Grundsätzlich kann ich natürlich die 

Function lfd. erweitern.
Allerdings ist das zu aufwändig.
Gibt es was wie
ElseIf B = "?" Then
Segment = "Muster3"
Besten Dank für eine Hilfe!!
mfg
Erich