Danke erstmal. Hab den Code jetzt angepasst und es klappt. War ein kleiner Fehler.
So sieht der Code jetzt aus:
Private Sub Nachname_suchen_Click()
Dim rngCell As Range
Dim strFirstAddress As String
With Worksheets("Stammdaten").Range("B:B")
Me.ListBox1.Clear
Set rngCell = .Find(Me.TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 19
.AddItem
'.List(.ListCount - 1, 0) = rngCell.Value
.List(.ListCount - 1, 0) = rngCell.Offset(0, -1).Value
.List(.ListCount - 1, 1) = rngCell.Offset(0, 0).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 1).Value
.ColumnWidths = "3,0cm;3,0cm;3,0cm;3,0cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address <> strFirstAddress
Else
MsgBox "Nachname nicht gefunden", 48
End If
End With
End Sub
Vielleicht kannst Du mir darüber hinaus weiterhelfen und zwar sieht meine Zielsetzung wie folgt aus:
1. Ich will über ein Textfeld nach dm Nachnamen suchen die Zeile in der Listbox eintragen lassen (zumindest Spalte A, B und C; Aktenzeichen, Nachname, Vorname). So ist der gesuchte Name klar definiert.
2. In der Listbox stehen jetzt die Ergebnisse (können ja auch mehrere Nachnamen sein)
3. Per Doppelclick auf die Zeile in der Listbox, sollen die Werte aus der Zeile der Tabelle "Stammdaten" in eine Form gelesen werden und zwar in eine Userform in einzelne Textfelder (also auch zugehörig A-R).
4. Dann will ich die diese Übersicht drucken (habe ich schon realisiert, bzw. weiß wie es geht)
Gruß
|