Regular
Beiträge: 86
Ort: Saarland | Hallo,
die verschachtelte Wenn Funktion ist irgendwie schlecht lesbar bzw wartbar.
Ich sehe 2 einfache Möglichkeiten:
1. =Choose(Deutsch;"PgF";"PeF";"eA","")
oder
2. Du schreibst eine kleine VBA Funtion
public Function getDeuschKuerzel(byval p_wert)
select case p_wert
case 1: getDeuschKuerzel="PgF"
case 2: getDeuschKuerzel="PeF"
...
end select
end function
die Funktion kannst Du dann ein Formularen oder Berichten verwenden
ich hoffe es hilft Dir weiter
Wilo
|