Thema: UDF

Hallo zusammen,
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

Hi Markus,
Ist das nicht etwas für SVERWEIS oder INDEX/VERGLEICH?!
1. Spalte Dein Suchkriterium 2. Spalte die entsprechende Zuordnung.
Sonst könnte man in VBA über eine Schleife oder FIND-Methode suchen lassen und dann den entsprechenden Wert zuordnen. Auch SELECT CASE wäre eine Alternative.
Jan

Hallo Markus,
probier's mal so
If Left(Gruppe, 1) <> "K" Or Left(Gruppe, 1) <> "T" Then
EGr = Gruppe
Else
i = Right(Gruppe, 1)
EGr = "K" & i & " / T" & i
End If
Gruß
Volker
EGr = Gruppe
End If

Danke