sverweis Frage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dieter,
das geht im Prinzip durchaus mit den Formeln in http://www.excelformeln.de/formeln.html?welcher=28
also dem, was Bertram dir gepostet hatte.
Hier die Formel ein wenig umgestrickt für Spalten.

	A	B	C
2	01.01.2009	xy	www

Formeln der Tabelle

Zelle	Formel
B2	{=WENN(SPALTEN($B:B)>ZÄHLENWENN(einträge!$A:$A;$A2); "";INDEX(einträge!$B:$B; KKLEINSTE(WENN(einträge!$A$1:$A$1000=$A2;ZEILE($1:$1000)); SPALTE()-1)))}
C2	{=WENN(SPALTEN($B:C)>ZÄHLENWENN(einträge!$A:$A;$A2); "";INDEX(einträge!$B:$B; KKLEINSTE(WENN(einträge!$A$1:$A$1000=$A2;ZEILE($1:$1000)); SPALTE()-1)))}

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

Matrix verstehen

Wenn sowohl xy als auch www in B2 stehen soll, müsstest du schon genauer schreiben, wie.
(xywww oder xy / www oder xy, www oder ...)
Aber vielleicht kannst du das Zusammenfügen in eine Zelle ja jetzt selbst erledigen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hi
wenn alle gefundenen Einträge in der gleichen Zelle erscheinen sollen und nicht bekannt ist, wieviele Einträge es gibt, dann wirds mit Formeln alleine wahrscheinlich kompliziert.
Einfacher ist es da, sich selber per Makro eine benutzerdefinerte Funktion zu schreiben, die den SVerweis nach deinen Wünschen modifiziert.
hier der Code dazu:


Public Function SVerweisAlle(SuchBegriff As String, _
SuchMatrix As Range, _
Spalte As Integer, _
Optional TrKZ As String = "") As String
Dim arr
Dim i As Long
Dim Ergebnis As String
arr = SuchMatrix
For i = 1 To UBound(arr)
If arr(i, 1) = SuchBegriff Then
Ergebnis = Ergebnis & TrKZ & arr(i, Spalte)
End If
Next
If Len(Ergebnis) > 0 Then Ergebnis = Mid(Ergebnis, Len(TrKZ) + 1)
SVerweisAlle = Ergebnis
End Function

diesen Code kopierst du und fügst ihn folgendermassen ein:
- klicke EXTRAS - MAKRO - VISUALBASIC EDITOR
- im Editor klickst du EINFÜGEN - MODUL
- hier fügst du den kopierten Code in das neu geöffnete Fenster ein.
dadurch hast du eine neue Excel-Funktion erhalten, die du wie jede andere Excelfunktion auch verwenden kannst.
Die neue Funktion heißt "SVerweisAlle" und hat 4 Parameter.
die ersten 3 entsprechen den ersten 3 Parametern des normalen SVerweisen (Suchbegriff, Suchmatrix und Spalte), der 4 Parameter ist das Trennzeichen, mit dem die Ergebnisse innerhalb der Zelle getrennt werden. Um als Trennzeichen einen Zeilenumbruch einzugeben musst du die Formel "Zeichen(10)" verwenden.
für dein Beispiel sähe die Formel dann so aus:


=SVERWEISalle(A2;einträge!A3:B7;2;ZEICHEN(10))

Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread