Hallo
hier mal ein Weg
auf der Userform sind 1 Combobox1 und 3 Textboxen 1 bis 3
in meinem Test stehen die Firmennamen in Spalte A von Tabellenblatt "Firmen"
und die dazugehörigen Adressen in den Spalten B bis D
dazu ein Commandbutton1 mit forlgendem Code
Private Sub CommandButton1_Click()
Dim c As Range
Dim i As Integer
With Sheets("Firmen")
Set c = .Columns(1).Find(ComboBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
For i = 1 To 3
Controls("Textbox" & i).Value = .Cells(c.Row, i + 1).Value
Next
End If
End With
End Sub
ich bin davon ausgegangen, dass du die Combobox schon mit den Firmennamen gefüllt hast
ansonsten hier eine Möglichkeit
Private Sub UserForm_Initialize()
Dim varDaten As Variant
Dim lngLetzte As Long
With Sheets("Firmen")
lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
varDaten = .Range("A1:A" & lngLetzte)
End With
ComboBox1.List = varDaten
End Sub
MfG Tom
|