Thema Datum  Von Nutzer Rating
Antwort
Rot Suchfunktion in Userform mit 2 Suchkriterien
07.09.2020 14:46:09 Michael
NotSolved

Ansicht des Beitrags:
Von:
Michael
Datum:
07.09.2020 14:46:09
Views:
57
Rating: Antwort:
  Ja
Thema:
Suchfunktion in Userform mit 2 Suchkriterien

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Suchfunktion in Userform mit 2 Suchkriterien
07.09.2020 14:46:09 Michael
NotSolved