Hallo,

ich bräuchte mal eure hilfe für eine suchanfrage,

ausgangspunkt soll eine tabelle mit produknummer in spalte 1 sein. in den folgenden spalten sind produktbeschreibungen(P.name, Hersteller,... )

mittels einer Userform möchte ich ein bestimmtes Produkt über die nummer suchen und ergänzende Angaben in die bereits bestehende Tabelle hinzufügen
Textbox1 ist die Produktnr und Textbox2, Textbox3, ... sind werte und bezeichnungen

nun soll eben über die eingegebene nummer die entsrechende zeile gesucht werden und in eine festgelegte spalte der wert von textbox2, 3, ... ausgegeben werden


Ich schaff das leider nich, da ich noch am Anfang von meiner excel-karriere steh

danke und viele grüße

.... war nix

rotebete schrieb:

strSuchen = frmSuche("Textbox1")

Du willst doch bestimmt nicht den String TextBox1 suchen sondern den Inhalt von Textbox1, also Textbox1.Text

hab jetzt eine lösung wenn bestimmt auch nicht die beste

Private Sub CommandButton2_Click()

Dim Zelle As Range
Set Zelle = Worksheets("Tabelle1").Range("a:A").Find(frmSuche("Textbox1"))

If Zelle Is Nothing Then MsgBox "ObjektID nicht vorhande"


If Not Zelle Is Nothing Then

ActiveSheet.Cells(Zelle.Row, 5).Value = Me.TextBox2.Value
ActiveSheet.Cells(Zelle.Row, 6).Value = Me.TextBox3.Value

Zelle.Select

Unload Me
End If


End Sub