Hi tut mir Leid für die verspätete Antwort, du könntest das mit einem Worksheet Change Makro in der Mappe ausprobieren.
z.B. so: Das Makro musst du in das Tabellenblatt eintragen in dem der Sverweis funktionieren soll. Bei mir ist es Tabelle1 (Tabelle1)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ergebnis As String
If Target.Address(0, 0) = "C3" Then
If Target <> "" Then
On Error GoTo Ausgang
Ergebnis = Application.VLookup(Target.Value, Workbooks("Mappe1.xlsm") _
.Sheets("Tabelle2").Range("A2:B1000"), 2, False)
Range("C5") = Ergebnis
Else
Range("C5") = ""
End If
End If
Exit Sub
Ausgang:
Range("C5") = "Wert nicht vorhanden!"
End Sub
In C3 gibts du einen Wert ein und der wird mit dem Vlookup(Sverweis) in Tabelle2 gesucht in der Matrix (A2:B1000) lässt sie wie bei der Sverweis Formel in Excel variieren.
Das Ergebnis des Sverweis wird dann in C5 ausgegeben.
In C5 steht keine Formel du kannst auch jederzeit was anderes eintragen, sobald du aber einen neuen Wert in C3 eingibst wird C5 wieder überschrieben.
Wenn es zu dem Wert den du in C3 eingibst kein Ergebnis bekommst dann steht in C5 "Wert nicht vorhanden!"
Hoffe damit kannst du etwas anfangen.
|