Hallo zusammen,
ich bin Vba-Anfänger und versuche in einer Userform nach 2 Kriterien, textboxen befüllen zu lassen mit Werten aus Tabell1.
In der Userform möchte ich entweder mit Angabe der Artiklenummer in Textbo1 die restlichen Textboxen füllen lassen,
oder mit Angabe eines Suchbegriffes in Textbox2 die Textbox3 bfüllen lassen und falls vorhanden soll dann auch die Artikelnummer
angezeigt werden, wenn nicht dann nur Ergebnis in Textbox3
In Textbox3 möchte ich gerne den Text Formatunabhängig dort anzeigen lassen....also nicht auf eien zeile beschränkt.
mein bisheriger Code für das suchen nur nach Artikelnummer, der auch funktioniert ist folgender:
Private Sub TextBox1_AfterUpdate()
Dim lZeile As Long
TextBox2 = ""
TextBox3 = ""
Dim RaFound As Range
Set RaFound = Worksheets("Tabelle1").Columns(1).Find(TextBox1, , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
lZeile = RaFound.Row
TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
TextBox2 = Tabelle1.Cells(lZeile, 2).Value
TextBox3 = Tabelle1.Cells(lZeile, 3).Value
End If
End Sub
Ich hoffe das mir hier jemand helfen kann?
Gruß
Michael
|