Tabellenübergreifende suche-mit SVERWEIS?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
was der SVERWEIS macht und wie er funktioniert, kannst du hier nachlesen:
http://www.online-excel.de/excel/singsel.php?f=9
allerdings hast du das Problem, daß du ja 8 Blätter durchsuchen musst, der SVERWEIS ist immer nur für ein Blatt ausgelegt, dh, du müsstest dann immer die SVERWEISE für jedes Blatt in eine Formel packen, das gibt dann sehr komplexe Formeln
Daher hab ich mal diese selbstbeschriebenen Funktion "SuchenX" geschrieben, sie durchsucht alle Tabellenblätter nach dem Suchwert und gibt entweder den Blatt-Namen (1, Parameter = 1) oder die Zeilen-Nr (1. Parameter = 2) zurück, in der der Suchbegriff gefunden wurde.
mit diesen beiden Werten kannst du dir dann die restlichen Daten der Zeile über die INDIREKT-Funktion anzeigen lassen.
die weitern Parameter sind der Suchbegriff und die Suchspalte, in der gesucht werden soll.
der Code der Funktion sieht so aus:
Public Function SucheX(Art As Byte, Suchbegriff As Variant, Suchspalte As String) As Variant Dim Zelle As Range Dim sh As Worksheet If Suchbegriff = "" Then SucheX = "" Else For Each sh In ActiveWorkbook.Worksheets Set Zelle = sh.Columns(Suchspalte).Find(what:=Suchbegriff, LookIn:=xlValues, lookat:= _ xlWhole) If Not Zelle Is Nothing Then Exit For Next Select Case Zelle Is Nothing Case True SucheX = "nicht gefunden" Case False Select Case Art Case 1 SucheX = sh.Name Case 2 SucheX = Zelle.Row End Select End Select End If End Function

und hier die Beispielmappe:
https://www.herber.de/bbs/user/49790.xls
Gruß, Daniel

Hi Andreas,
ich hatte da seinerzeit auch mal eine UDF (Eigene Funktion) geschrieben. Binde sie in ein allgemeines Modul ein:


Option Explicit
Function SVERWEIS3D(Bezug As Variant, Suchkriterium As Variant, Spaltenindex As Integer) As  _
Variant
Dim s           As String       'Formelstring
Dim WsStart     As String       'Name Erstes Blatt
Dim WsEnde      As String       'Name Letztes Blatt
Dim iCount      As Integer      'Zähler vom 1. bis zum letzten Blatt
Dim i           As Integer      'Index des 1. Blattes
Dim j           As Integer      'Index des letzten Blattes
Dim B           As Boolean      'Prüfung, ob Mehrfachbezug vorhanden
Dim sBereich    As String       'Bereich auslesen bei Mehrfachmarkierung
Const MB        As String = "*:*!*,*" 'typische Syntax für Mehrfachbereich
s = Application.Caller.Formula 'Formel auslesen
'Prüfen, ob Mehrfachmarkierung vorliegt
B = s Like MB
If B Then 'Falls Mehrfachbezug vorhanden in der Form: Tabelle1:Tabelle3!A1:C100
'Formelstring innerhalb der Klammern auslesen und an s übergeben
s = Mid(s, InStr(1, s, "(") + 1, InStr(1, s, ")") - InStr(1, s, "(") - 1)
'Erstes Blatt auslesen
WsStart = Trim(Left(s, InStr(1, s, ":") - 1))
'Letztes Blatt auslesen
WsEnde = Trim(Mid(s, InStr(1, s, ":") + 1, InStr(1, s, "!") - InStr(1, s, ":") - 1))
'Zellbereich auslesen
sBereich = Trim(Mid(s, InStr(1, s, "!") + 1, InStr(1, s, ",") - InStr(1, s, "!") - 1))
'Index des 1. Blattes ermitteln
i = Worksheets(WsStart).Index
'Index des letzten Blattes ermitteln
j = Worksheets(WsEnde).Index
'Schleife über alle tangierten Blätter
For iCount = i To j
With WorksheetFunction
If .CountIf(Sheets(iCount).Range(sBereich).Columns(1), Suchkriterium) Then
SVERWEIS3D = .VLookup(Suchkriterium, Sheets(iCount).Range(sBereich),  _
Spaltenindex, 0)
Exit Function
Else
SVERWEIS3D = "Nix gefunden"
End If
End With
Next iCount
Else 'Falls kein Mehrfachbezug vorhanden: Einfacher SVERWEIS
SVERWEIS3D = WorksheetFunction.VLookup(Suchkriterium, Bezug, Spaltenindex, 0)
End If
End Function

In der Tabelle verwendest Du sie an mit der Syntax:


=SVERWEIS3D(Bezug;Suchkriterium;Spaltenindex)

Also z.B. (der Suchbegriff steht in E1):


=SVERWEIS3D(Tabelle1:Tabelle3!A:B;E1;2)

Es wird im Übrigen nur nach exakter Übereinstimmung gesucht.
Grüße Boris

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	test7	<-- A1 = Suchewert
2
3	a10	b10	c10	test7

Tabellenübergreifende suche-mit SVERWEIS?

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenübergreifende suche-mit SVERWEIS?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread