ich hab mir einer Userform eine Combox gemacht, mit der ich Adressen selektieren kann (Namen sind mehrfach vorhanden). Funktioniert gut:
Private Sub UserForm_Initialize()
Dim Zeile As String
Dim Laenge As Integer
Dim Posi As Integer
Dim firstAddress As String
Dim Text As String
Dim c As Object
'Worksheets("adrdat.xls").Activate
Sheets("Adressen").Select
With Sheets("Adressen").Range("A:F")
Set c = .Find(What:="amtsgericht", LookIn:=xlValues)
If Not c Is Nothing Then
Zeile = c.Address
Posi = InStr(2, Zeile, "$")
Laenge = Len(Zeile)
Zeile = Right(Zeile, Laenge - Posi)
'Range("B" + Zeile).Select
Me.ComboBox1.Value = Range("B" + Zeile).Value & ", " & _
Range("C" + Zeile).Value & ", " & _
Range("D" + Zeile).Value & ", " & _
Range("E" + Zeile).Value & ", " & _
Range("F" + Zeile).Value & ", " & _
c.Address
firstAddress = c.Address
Do
Zeile = c.Address
Posi = InStr(2, Zeile, "$")
Laenge = Len(Zeile)
Zeile = Right(Zeile, Laenge - Posi)
Range("B" + Zeile).Select
'MsgBox (.Range("B" + Zeile).Address & Zeile)
Me.ComboBox1.AddItem _
Range("B" + Zeile).Value & ", " & _
Range("C" + Zeile).Value & ", " & _
Range("D" + Zeile).Value & ", " & _
Range("E" + Zeile).Value & ", " & _
Range("F" + Zeile).Value & ", " & _
c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Wie ermittlere ich nun den Datensatz bzw. wie bekomme ich für den ausgewählten Datensatz alle Elemente in die Userform (die Felder sind alle da)?
Vielen Dank für eine Antwort
Mit freundlichen Grüßen
Albrecht