Ich komm leider rnicht klar.-

bisher hab ich das so gemacht

Private Sub Listbox_anzeigen()
  Dim lZeile As Long
  Dim i As Integer
    
    'Eingabefelder leeren
    
    Call RESET_UForm_OHNE_LISTBOX(frm_Adressen)
   
    'Nur wenn ein Eintrag selektiert/markiert ist
    If Listbox1.ListIndex >= 0 Then
           
        'Die Zeilennummer des Datensatzes steht in der ersten ausgeblendeten Spalte der Liste,
        lZeile = Listbox1.List(Listbox1.ListIndex, 0)
        'Alle Eingabefelder mit der Schleife in der Userform anzeigen
'        For i = 1 To iCONST_ANZAHL_EINGABEFELDER
'            Me.Controls("TextBox" & i) = CStr(tbl_Adressen.Cells(lZeile, i).Text)
'        Next i
            
    End If  
End Sub

Jetzt habe ich die Anzahl Felder reduziert umnd den Code so erstellt

Private Sub EINTRAG_LADEN_UND_ANZEIGEN()
  Dim lZeile As Long
  Dim i As Integer
    
  ' Alle Eingabefelder löschen, Aufruf in Hilfsroutine
  Call RESET_USERFORM_FUER_EINGABE(Me)
    
  'Nur wenn ein Eintrag selektiert/markiert ist
    If lboAdressen.ListIndex >= 0 Then
           
        'Die Zeilennummer des Datensatzes steht in der ersten ausgeblendeten Spalte der Liste,
        'somit können wir direkt zugreifen.
        lZeile = lboAdressen.List(lboAdressen.ListIndex, 0)
        
        'Userform jetzt füllen
        Me.cboAnrede.Value = tbl_Adressen.Cells(lZeile, 1)
        Me.txtVorname.Value = tbl_Adressen.Cells(lZeile, 2)
        Me.txtNachname.Value = tbl_Adressen.Cells(lZeile, 3)
        Me.txtVorname2.Value = tbl_Adressen.Cells(lZeile, 4)
        Me.txtNachname2.Value = tbl_Adressen.Cells(lZeile, 5)
        Me.txtBriefanrede.Value = tbl_Adressen.Cells(lZeile, 6)
        Me.txtStraße.Value = tbl_Adressen.Cells(lZeile, 7)
        Me.cboPostleitzahlen.Value = tbl_Adressen.Cells(lZeile, 8)
        Me.txtOrt.Value = tbl_Adressen.Cells(lZeile, 9)
        Me.cboLand.Value = tbl_Adressen.Cells(lZeile, 10)
        Me.txtLand.Value = tbl_Adressen.Cells(lZeile, 11)
        Me.txtTelefon1.Value = tbl_Adressen.Cells(lZeile, 12)
        Me.txtTelefon2.Value = tbl_Adressen.Cells(lZeile, 13)
        Me.txtMobil1.Value = tbl_Adressen.Cells(lZeile, 14)
        Me.txtMobil2.Value = tbl_Adressen.Cells(lZeile, 15)
        Me.txtTeleFax1.Value = tbl_Adressen.Cells(lZeile, 16)
        Me.txtTeleFax2.Value = tbl_Adressen.Cells(lZeile, 17)
        Me.txtEmail1.Value = tbl_Adressen.Cells(lZeile, 18)
        Me.txtEmail2.Value = tbl_Adressen.Cells(lZeile, 19)
        Me.txtInternet.Value = tbl_Adressen.Cells(lZeile, 20)
    End If
    
End Sub