UDF
30.11.2004 09:33:46
MarkusL
ich versuche mit nachfolgender Formel eine Gruppierung für die Bereich K1 T1 usw. zu erzeugen. Alle anderen Gruppen können entsprechend der Vorgabe (z.B. 07 bleibt 07) übernommen werden. Da ich Makro technisch nicht gerade gute Kenntnisse besitze, hat vielleicht jemand in diesem Forum eine Idee, wie ich dieses mit einer einfacheren Funktion (evtl. auch Formel) lösen kann. Für Eure Hilfe schon einmal ein Danke schön im voraus.
Markus
Function EVGr(Gruppe)
Dim EGr
If Gruppe = "01" Then EGr = "01"
If Gruppe = "02" Then EGr = "02"
If Gruppe = "03" Then EGr = "03"
If Gruppe = "04" Then EGr = "04"
If Gruppe = "05" Then EGr = "05"
If Gruppe = "06" Then EGr = "06"
If Gruppe = "07" Then EGr = "07"
If Gruppe = "08" Then EGr = "08"
If Gruppe = "09" Then EGr = "09"
If Gruppe = "10" Then EGr = "10"
If Gruppe = "M1" Then EGr = "M1"
If Gruppe = "K1" Then EGr = "K1 / T1"
If Gruppe = "T1" Then EGr = "K1 / T1"
If Gruppe = "K2" Then EGr = "K2 / T2"
If Gruppe = "T2" Then EGr = "K2 / T2"
If Gruppe = "K3" Then EGr = "K3 / T3"
If Gruppe = "T3" Then EGr = "K3 / T3"
If Gruppe = "K4" Then EGr = "K4 / T4"
If Gruppe = "T4" Then EGr = "K4 / T4"
If Gruppe = "K5" Then EGr = "K5 / T5"
If Gruppe = "T5" Then EGr = "K5 / T5"
If Gruppe = "K6" Then EGr = "K6 / T6"
If Gruppe = "T6" Then EGr = "K6 / T6"
EVGr = EGr
End Function