Hallo zusammen,
ich bin ein absoluter Anfänger in sachen VBA Programmierung und brauche mal eure Hilfe.
Ich habe eine Userform erstellt und möchte die dort vorhandenen Textboxen mit Daten aus einem Excelsheet füllen. In einer Combobox möchte ich einen Suchbegriff eingeben und sowie dieser gefunden wird sollen mir die Werte aus der gleichen Zeile rechts davon in den genannten textboxen wiedergegeben werden.
Allerdings kann es sein, dass manche Suchbegriffe doppelt vorkommen, sollte dies der Fall sein, ware es gut eine Info zu erhalten (eventuelle eine msgbox oder ein separates Fenster wo man den richtigen subegriff selektieren kann).
Bisher habe ich das hier geschrieben, allerdings funktioniert dieser Code nicht (zumindest stimmen die Ergebnisse nicht :()
Private Sub commandbutton1_Change()
Dim c As Variant
For c = 6 To Sheets("Datenbank").Range("A65536").End(xlUp).Row
If commandbutton1.Text = Sheets("Datenbank").Cells(c, 2) Then
tb_1.Value = Sheets("Datenbank").Cells(c, 3)
tb_2.Value = Sheets("Datenbank").Cells(c, 4)
tb_3.Value = Sheets("Datenbank").Cells(c, 5)
tb_4.Value = Sheets("Datenbank").Cells(c, 6)
tb_5.Value = Sheets("Datenbank").Cells(c, 7)
tb_6.Value = Sheets("Datenbank").Cells(c, 9)
tb_7.Value = Sheets("Datenbank").Cells(c, 11)
tb_8.Text = Sheets("Datenbank").Cells(c, 12)
tb_9.Text = Sheets("Datenbank").Cells(c, 13)
End If
Next
End Sub
Über eure Hilfe würde ich mich sehr freuen.
Uwe |