userform!
lisa
In meiner Userform habe ich eine Combobox1 mittels der ich Daten aus der Tabelle1 aus Spalte H suche!
In dem Labe3 soll dann der Wert aus der Tabelle1 aus Spalte I angezeigt werden, eigentlich ein Sverweis!
Dazu habe ich in der Recherche das Makro von Nepumuk gefunden, welches zu 100% funktioniert.
Private Sub ComboBox1_Change()
Dim varSuchbegriff As Variant
If IsNumeric(ComboBox1.Value) Then varSuchbegriff = Val(ComboBox1.Value) Else _
varSuchbegriff = ComboBox1.Value
On Error Resume Next
Label3.Caption = " " & WorksheetFunction.VLookup(varSuchbegriff, Range(Cells(1, 8), Cells(6, _
9)), 2, False)
If Err.Number 0 Then Label3.Caption = " Nichts gefunden"
On Error GoTo 0
End Sub
wenn ich einer anderen Tabelle suchen will nämlich Tabell2, habe ich gedacht das Makro so zu ändern:
Private Sub CommandButton1_Click()
Dim varSuchbegriff As Variant
If IsNumeric(ComboBox1.Value) Then varSuchbegriff = Val(ComboBox1.Value) Else _
varSuchbegriff = ComboBox1.Value
On Error Resume Next
Label3.Caption = " " & WorksheetFunction.VLookup(varSuchbegriff, Worksheets("Tabelle2"). _
Range(Cells(1, 8), Worksheets("Tabelle2").Cells(6, 9)), 2, False)
If Err.Number 0 Then Label3.Caption = " Nichts gefunden"
On Error GoTo 0
End Sub
Habt ihr eine Idee?
LG Lisa
Anzeige