brauch mal wieder von euch eine Hilfestellung
bin schon eine ganze weile beschäftigt eine Fehlermeldung über eine MSGBOX ausgeben zu lassen, wenn das Suchkriterium in Zelle A3 nich mit den Listeneinträgen in Tabelle1 Spalte A übereinstimmt.
Ist für euch sicher kein Problem
Währe Super für ein Hinweis
Danke im vorraus
Gruß
Andi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws1, ws2 As Worksheet
Dim rng As Range
Dim letzte As Long
On Error Resume Next
letzte = Sheets("Tabelle1").Range("A" & Rows.Count).End(xlUp).Row
Set ws1 = Tabelle1
Set ws2 = Tabelle2
Set rng = ws2.Range("A3")
With ws2
If rng Is Nothing Then
MsgBox ("Es wurde keine passender Wert zu '" & rng.Target & "' gefunden")
Else
.Range("A2").Value = Application.WorksheetFunction.VLookup(rng, ws1.Range("A1:F" & letzte). _
_
Value, 2, 0)
.Range("B3").Value = Application.WorksheetFunction.VLookup(rng, ws1.Range("A1:F" & letzte). _
_
Value, 3, 0)
.Range("C3").Value = Application.WorksheetFunction.VLookup(rng, ws1.Range("A1:F" & letzte). _
_
Value, 4, 0)
.Range("D3").Value = Application.WorksheetFunction.VLookup(rng, ws1.Range("A1:F" & letzte). _
_
Value, 5, 0)
.Range("E3").Value = Application.WorksheetFunction.VLookup(rng, ws1.Range("A1:F" & letzte). _
_
Value, 6, 0)
End If
End With
End Sub