Ich habe in der nachstehenden Musterdatei folgendes Problem:
In der Spalte C sind Produktgruppen angeführt
In der Spalte O wird mit folgender Formel über eine Funktion eine Auswahl getroffen:
=WENN(ODER($C2={""."Bandagen und Orthesen"."Orthopädische Schuhe"."Schuheinlagen"."Arm- und Beinprothesen"."Reparatur Bandagen"."Reparatur Orthesen"."Elastische Binden"."Kompressionsbandagen"."Ableitende Inkontinenz"."Colo-, Ileo-, Urostomie Versorgung"."Sonstige"."Sehbehelfe"."Kunststoffbrillen"."Kontaktlinsen"."Sehbehelfe OÖ"."Sehbehelfe Salzburg"."Augenprothesen"."Inkontinenzversorgung"."Inkontinenzversorgung Euron - FA Ontex"."Inkontinenzversorgung Stallovits"."Inkontinenzversorgung Vorarlberg FA Hartmann Paul"}) ;Schuh1(Auswahl!$C2);Auswahl!$L2)
Die Funktion wäre diese:
Function Schuh1(Schuha As String) As String
Select Case Schuha
Case "Bandagen und Orthesen"
Schuh1 = "Orthopädietechniker"
Case "Orthopädische Schuhe"
Schuh1 = "Orthopädieschuhmacher"
Case "Schuheinlagen"
Schuh1 = "Orthopädietechniker"
Case "Arm- und Beinprothesen"
Schuh1 = "Orthopädietechniker"
Case "Reparatur Bandagen"
Schuh1 = "Orthopädietechniker"
Case "Reparatur Orthesen"
Schuh1 = "Orthopädietechniker"
Case "Elastische Binden"
Schuh1 = "Orthopädietechniker"
Case "Kompressionsbandagen"
Schuh1 = "Orthopädietechniker"
Case "Ableitende Inkontinenz"
Schuh1 = "Orthopädietechniker"
Case "Colo-, Ileo-, Urostomie Versorgung"
Schuh1 = "Orthopädietechniker"
Case "Sonstige"
Schuh1 = "Orthopädietechniker"
Case "Sehbehelfe"
Schuh1 = "Augenoptiker"
Case "Kunststoffbrillen"
Schuh1 = "Augenoptiker"
Case "Kontaktlinsen"
Schuh1 = "Augenoptiker"
Case "Sehbehelfe OÖ"
Schuh1 = "Augenoptiker"
Case "Sehbehelfe Salzburg"
Schuh1 = "Augenoptiker"
Case "Augenprothesen"
Schuh1 = "Augenoptiker"
Case "Inkontinenzversorgung"
Schuh1 = "Orthopädietechniker"
Case "Inkontinenzversorgung Euron - FA Ontex"
Schuh1 = "Orthopädietechniker"
Case "Inkontinenzversorgung Stallovits"
Schuh1 = "Orthopädietechniker"
Case "Inkontinenzversorgung Vorarlberg FA Hartmann Paul"
Schuh1 = "Orthopädietechniker"
End Select
End Function
Gäbe es hier bitte die Möglichkeit die Formel in der Spalte O kleiner zu halten, da es in der Spalte C mehrere Produktgruppen gibt ?
vielleicht mit Namen definieren?
oder mit einem Worksheet Change Ereignis?
https://www.herber.de/bbs/user/54007.xls
Danke
Josef