Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 16:30:01
15.04.2024 13:59:59
15.04.2024 13:54:18
Anzeige
Archiv - Navigation
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UDF

UDF
30.11.2004 09:33:46
MarkusL
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UDF
Jan
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
AW: UDF
Volker
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

AW: UDF
01.12.2004 09:31:42
MarkusL
Danke
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige