Nach bestimmtemText suchen und best. Text ausgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klara,
ein Ansatz:

	A	B	C	D
1		Std.z.	5a	5b
2	D	5	DEF	DEF
3	E	4	LPR	ABC
4	F	-	-	-
5	La	-	-	-
6	Mu	2	NOP	DEF
7	Ku	2	DEF	KLM
8	Ma	5	ABC	SON
9	Bi	2	DEF	DEF
10	Ch	-	-	-
11	Ph	1	HIJ	HIJ
12		30
13
14
15
16
17	DEF	LPR	HIJ
18	D in 5a	E in 5a	D in 5c
19	D in 5b		Ku in 6c
20	D in 6b		Bi in 5c
21	D in 6d		Ph in 5a
22	D in 7L1		Ph in 5b
23	D in 7F1		Ph in 5c

Formeln der Tabelle

Zelle	Formel
A18	{=WENN(ZEILE(A1)>ZÄHLENWENN($C$2:$P$11;A$17); "";INDEX($A$1:$A$11;KKLEINSTE(WENN($A$1:$P$11=A$17;ZEILE($A$1:$P$11)+SPALTE($A$1:$P$11)/1000); ZEILE(A1)))&" in "&INDEX($A$1:$P$1;REST(KKLEINSTE(WENN($A$1:$P$11=A$17;ZEILE($A$1:$P$11)+SPALTE($A$1:$P$11)/1000); ZEILE(A1)); 1)*1000))}

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

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MfG Christian

Hallo
reicht das so?
Auswertung

	A	B	C
1	Lehrer	Fach	in Klasse
2	ABC	Bi	6d
3	ABC	Ch	6b
4	ABC	E	5b
5	ABC	Ma	5a
6	CAG	Ph	6a
7	CAG	Ph	6c
8	CAG	Ph	6d
9	CFOL	E	7L2
10	DAN	Ma	5d
11	DEF	Bi	5a
12	DEF	Bi	5b
13	DEF	Bi	6c

Tabellendarstellung in Foren Version 5.49

Option Explicit Sub Lehrer() On Error GoTo Fehler Dim TB1, TB2, i%, j%, k% Dim LR&, LC% Set TB1 = Sheets("5 - 7") Set TB2 = Sheets(2) LR = TB1.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte LC = TB1.Cells(1, Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile Application.ScreenUpdating = False k = 2 TB2.Cells.ClearContents TB2.Cells(1, 1) = "Lehrer" TB2.Cells(1, 2) = "Fach" TB2.Cells(1, 3) = "in Klasse" For i = 2 To LR For j = 3 To LC If TB1.Cells(i, j) "-" And Not IsNumeric(TB1.Cells(i, j)) Then TB2.Cells(k, 1) = TB1.Cells(i, j) TB2.Cells(k, 2) = TB1.Cells(i, 1) TB2.Cells(k, 3) = TB1.Cells(1, j) k = k + 1 End If Next j Next i 'sortieren With TB2.Sort .SortFields.Clear .SortFields.Add Key:=Range("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:= _ xlSortNormal .SortFields.Add Key:=Range("B:B"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:= _ xlSortNormal .SortFields.Add Key:=Range("C:C"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:= _ xlSortNormal .SetRange Range("A:C") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Err.Clear Fehler: If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear End Sub

Beliebteste Forumthreads (12 Monate)

Nach bestimmtemText suchen und best. Text ausgeben

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

333 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nach bestimmtemText suchen und best. Text ausgeben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

333 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread