Alphabetische Gruppen zuordnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andrea,
... geht auch ohne alphabetische Sortierung der Daten.
Eine Möglichkeit z.B. so (Formel nach unten kopieren):

	A	B	C	D	E
1	Namen		Gruppe 1	Gruppe 2	Gruppe 3
2	Ammer Toni		Ammer Toni	Heinrich Falk	Schüppel Matthias
3	Felber Kerrtsin		Felber Kerrtsin		Stern Christian
4	Schüppel Matthias		Grundmann Sonja		Zeppelin Friider
5	Heinrich Falk		Bach Gunnar
6	Stern Christian
7	Zeppelin Friider
8	Grundmann Sonja
9	Bach Gunnar

Formeln der Tabelle

Zelle	Formel
C2	{=WENNFEHLER(INDEX(A:A;KKLEINSTE(WENN((LINKS(A$2:A$99;1)>="A")*(LINKS(A$2:A$99;1)<="G"); ZEILE(A$2:A$99)); ZEILE(Z1))); "")}
D2	{=WENNFEHLER(INDEX(A:A;KKLEINSTE(WENN((LINKS(A$2:A$99;1)>"G")*(LINKS(A$2:A$99;1)<"Q"); ZEILE(A$2:A$99)); ZEILE(Z1))); "")}
E2	{=WENNFEHLER(INDEX(A:A;KKLEINSTE(WENN((LINKS(A$2:A$99;1)>"P")*(LINKS(A$2:A$99;1)<="Z"); ZEILE(A$2:A$99)); ZEILE(Z1))); "")}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Werner
.. , - ...

Hallo Andrea!
Falls für Dich noch von Interesse, hier meine Makro-Lösung. In Spalte A stehen ab Zeile 2 die Mitarbeiter Nachnamen, in die Spalten C (Bearbeiter 1), D (Bearbeiter 2), E (Bearbeiter 3) sollen die Namen aus Spalte A nach Alphabet (ab Zeile 2 wg. Überschriften "Bearbeiter X") zugeordnet werden:
'In einem allgemeinen Modul Sub MitarbeiterZuordnen() Dim LetzterMitarbeiter As Long Dim NächsteZuteil1 As Long Dim NächsteZuteil2 As Long Dim NächsteZuteil3 As Long For LetzterMitarbeiter = Tabelle1.Cells(1, 1).End(xlDown).Row To 2 Step -1 Select Case Left(Tabelle1.Cells(LetzterMitarbeiter, 1).Text, 1) Case Is = "A", "B", "C", "D", "E", "F", "G" NächsteZuteil1 = Tabelle1.Cells(1048576, 3).End(xlUp).Row + 1 Tabelle1.Cells(NächsteZuteil1, 3).Value = Tabelle1.Cells(LetzterMitarbeiter, 1). _ Text Case Is = "H", "I", "J", "K", "L", "M", "N", "O", "P" NächsteZuteil2 = Tabelle1.Cells(1048576, 4).End(xlUp).Row + 1 Tabelle1.Cells(NächsteZuteil2, 4).Value = Tabelle1.Cells(LetzterMitarbeiter, 1). _ Text Case Is = "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z" NächsteZuteil3 = Tabelle1.Cells(1048576, 5).End(xlUp).Row + 1 Tabelle1.Cells(NächsteZuteil3, 5).Value = Tabelle1.Cells(LetzterMitarbeiter, 1). _ Text End Select Next LetzterMitarbeiter End Sub Wollte es Dir mitgeben, weil ich es für mich über ein Makro probieren wollte - in dem Fall sind die Formellösungen, die Du bereits erhalten hast, sicherlich zweckmäßiger.
lg
Michael

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

verwendete Formeln
Zelle	Formel	Bereich
C2	=WENN(UND(KLEIN(LINKS($A2;1))>=D$1;KLEIN(LINKS($A2;1))<=F$1);"X";"")

Alphabetische Gruppen zuordnen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread