kann mir noch mal jemand helfen?
ich muß nun den gefundenen text in einer TextBox (VBA-Formular) ausgeben.
TextBox=Zelle geht aber nicht.
gruß frank
Private Sub TextBox1_AfterUpdate()
Artikel_suchen (TextBox1)
End Sub
Sub Artikel_suchen(intArtikelNummer As Double)
'Letzte gefüllte Zelle in Spalte "A":
lastRow = Range("A65536").End(xlUp).Row
For j = 2 To lastRow
'Sicherstellen dass du auf der richtigen Tabelle bist
'sonst
'Worksheets("Tabelle1").Cells(j, 3).Value
If ActiveSheet.Cells(j, 3).Value = intArtikelNummer Then
'Was steht in F1 ?
'Aus welcher Tabelle soll das genommen werden
UserForm1.TextBox2 = Range("F1")
'Sonst den Wert aus der gleichen Zeile nehmen
'UserForm1.TextBox2 = Worksheets("Tabelle1").Cells(j, f)
End If
Next
End Sub