Userform mit Sucher
29.06.2006 18:41:58
Thorsten
Ich habe eine TextBox in der gebe ich die Nummer ein die ich suche ( in Spalte A), in Label3 und 4 soll das Suchergebniss nach CommandButton1_Click wieder gegeben werden. Label 3 gibt den Wert von Spalte B wieder und Label 4 den Wert von Spalte D, nur leider funktioniert das ganze nicht wie ich das will.Ich habe mir ein Teil aus dem Forum geholt "geliehen" und komme nicht so ganz weiter. A und B aus der Spalte gibt er mir wieder nur aus Spalte D nicht.
Könnte einer mir Helfen ?
Option Explicit
Private Sub CommandButton1_Click()
Dim varSuchbegriff As Variant
If IsNumeric(TextBox1.Value) Then varSuchbegriff = Val(TextBox1.Value) Else varSuchbegriff = TextBox1.Value
On Error Resume Next
Label3.Caption = " " & WorksheetFunction.VLookup(varSuchbegriff, Range(Cells(1, 1), Cells(990, 2)), 2, False)
If Err.Number <> 0 Then Label3.Caption = " Nichts gefunden"
On Error GoTo 0
End Sub
Währe für jede Hilfe dankbar.
Gruß Torte