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ß