Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

INDEX-Suche über 8 Sheets erweitern

INDEX-Suche über 8 Sheets erweitern
02.06.2006 12:50:51
Alexander
Hallo zusammmen
Kann ich die INDEX/VERGLEICH 's Formel über 8 Tabellen erweitern ?
Bisherige Formel:
INDEX([Name.xls]Tabelle1!$A$1:$B$10;
VERGLEICH(XY1;[Name.xls]Tabelle1!$B$1:$B$10;0);
VERGLEICH(XY1;[Name.xls]Tabelle1!$A$1:$B$10;0));0)
Nun zur Frage:
Ich möchte die Formel für Tabelle2 und Tabelle3... erweitern:
Zur Info:
Es handelt sich bei den Suchtabellen um baugleiche Artikeldatenbanken mit eindeugen Artikelnummern.
Kann mir da einer helfen, denn ich verzweifle !
Liebe Grüße
Alexander

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
  • UDF
    02.06.2006 14:56:29
    Peter
Anzeige
UDF
02.06.2006 14:56:29
Peter
Servus,
ich glaube Vergleich arbeitet nicht über mehrere Sheets.
Meine Abhilfe eine UDF


Option Explicit
Public Function DB_Rückgabe(SheetArr(), Suchwert As Variant, Bereich As Range, Spalte As IntegerAs String
Dim intZ As Integer, lngZ As Long
On Error Resume Next
If UBound(SheetArr) = -1 Then DB_Rückgabe = "Kein Array"
For intZ = 1 To UBound(SheetArr)
    With Sheets(SheetArr(intZ))
        lngZ = Application.WorksheetFunction.Match(Suchwert, .Range(Bereich.Address), 0)
        If lngZ <> 0 Then
            DB_Rückgabe = "'" & SheetArr(intZ) & "'!" & Cells(Bereich.Offset _
                    (lngZ - Bereich.Row).Row, Bereich.Column + Spalte).Address(0, 0)
            Exit Function
        End If
    End With
Next
End Function


Eingabe in etwa so:
Tabelle4
 AB
1 '2'!B2       40,00 €
Formeln der Tabelle
A1 : =DB_Rückgabe({"1"."2"};5;A1:A5;1)
B1 : =INDIREKT(A1)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
MfG Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige