Verweis

kalle · 2005-10-27T21:33:20+00:00

Hi Leute, ich hab da mal ein Beispiel. https://www.herber.de/bbs/user/27857.xls Ich habe folgendes Problem. Ich möchte in Tabelle1 einen Wert eingeben, die anderen Tabellen nach diesem wert durchsuchen und wenn vorhanden den passenden Wert dazu zurückgeliefert bekommen. Wie ein VERWEIS. Leider klappt es scheinbar mit einem VERWEIS nicht. Die Tabellen können aber auch noch mehr werden und heisen auch verschieden z.B Wurst, Käse, Brot usw. wer kann mir helfen? gruß kalle

Hallo Kalle,
nimm diese Funktion:


'Funktion sucht Inhalt von "Wert" in Spalte [Suchspalte] der Tabellen ab Index[2] bis Ende
' und gibt den Wert in [Ergebnisspalte] zurück
Function HoleWert(Wert, Suchspalte As Integer, Ergebnisspalte As Integer)
Dim sh As Worksheet
Dim b_index As Integer
Dim z As Range
b_index = 2
Do While b_index <= Sheets.Count
Set z = Sheets(b_index).Columns(Suchspalte).Find(What:=Wert, LookAt:=xlWhole)
If Not z Is Nothing Then Exit Do
b_index = b_index + 1
Loop
If z Is Nothing Then
HoleWert = "#NV"
Else
HoleWert = z.Offset(0, Ergebnisspalte - Suchspalte)
End If
End Function

Der erste gefundene Wert wird verwendet, evtl. folgende Treffer werden ignoriert.
In Tabelle1, B2 dann: =HOLEWERT(A2;1;2)
Wenn Werte in den zu durchsuchenden Tabellen verändert werden, wird die Formel nicht automatisch aktualisiert.
Wenn du das willst, schreibe nach der Zeile
Function HoleWert(Wert, Suchspalte As Integer, Ergebnisspalte As Integer)
die Zeile:
Application.Volatile
Das geht aber bei sehr vielen Änderungen/Formeln auf die Performance.
Gruß Matthias

Hallo Kalle,
das Öffnen der Datei geht leider nicht innerhalb einer Funktion, wenn sie von einer Formel aufgerufen wird :-(
Dann musst du sie halt manuell öffnen:


Function HoleWert(Wert, Mappe As String, Suchspalte As Integer, Ergebnisspalte As Integer)
Dim WB As Workbook
On Error Resume Next
Set WB = Workbooks(Mappe)
If Err.Number > 0 Then
HoleWert = "#NV"
Exit Function
End If
On Error GoTo 0
Dim sh As Worksheet
Dim z As Range
For Each sh In WB.Worksheets
Set z = sh.Columns(Suchspalte).Find(What:=Wert, LookAt:=xlWhole)
If Not z Is Nothing Then Exit For
Next sh
If z Is Nothing Then
HoleWert = "#NV"
Else
HoleWert = z.Offset(0, Ergebnisspalte - Suchspalte)
End If
End Function

=HOLEWERT(B1;"Mappe.xls";1;2)
Gruß Matthias

Forumthread: Verweis

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Verweis

Forumthread: Verweis

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread