Worksheetfunction.VLookup
18.10.2012 15:13:46
Katharina
ich versuche gerade anhand einer Text-Eingabe in Userform1 ein Ergebnis (Bild) aus einer anderen Tabelle mit "VLookup" zurück zu bekommen.
Das Makro läuft ohne Fehler durch, aber leider passiert gar nichts. Beim Debuggen sieht man, dass variable immer leer bleibt, auch wenn ein Datensatz anhand des Textes gefunden wird.
Hier mal mein Code:
Private Sub CommandButton1_Click()
Dim i As Long, z As Long, s As Long, b As Long
Dim Text As String
Dim rng As Range
Dim variable As Variant
Dim wks_IW73 As Worksheet, wks_ILA As Worksheet
Application.ScreenUpdating = False
z = Worksheets("IW73").UsedRange.Rows.Count
Set wks_IW73 = Worksheets("IW73")
Set wks_ILA = Worksheets("ILA")
Set rng = wks_ILA.Range(wks_ILA.Cells(1, 1), wks_ILA.Cells(18, 3))
'Spalte "IH-Leistungsart" ermitteln
s = wks_IW73.Application.Match("IH-Leistungsart", wks_IW73.Rows(1), 0)
'Spalte "Gerätedaten" ermitteln
b = wks_IW73.Application.Match("Gerätedaten", wks_IW73.Rows(1), 0)
Text = UserForm1.Seriennummer
For i = 2 To z Step 1
If Cells(i, b) = Text Then
On Error Resume Next
variable = ActiveSheet.WorksheetFunction.VLookup(Val(Cells(i, s)), rng, 3, False)
If variable = "Kunde" Then
UserForm1.Image1.Picture = LoadPicture("D:\logo1.jpg")
Else
If variable = "Harman" Then
UserForm1.Image1.Picture = LoadPicture("D:\logo2.jpg")
End If
End If
End If
Next i
Application.ScreenUpdating = True
End Sub
Vielleicht fällt ja jemandem von euch etwas ins Auge. Falsche Variablendeklaration o.ä.
Gruß,
Katharina