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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen