Private Sub ComboBox56_Change()
Dim LetzteZeile As Long
With ThisWorkbook.Sheets("AUSWERTUNG")
     LetzteZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row 'Letzte beschriebene Zelle in Spalte A
     End With

Hallo,

wo muss ich diese Anweisung hinschreiben?

direkt zur combobox oder zu inizialize?

Private Sub ComboBox56_Change()
Dim LetzteZeile As Long
With ThisWorkbook.Sheets("AUSWERTUNG")
     LetzteZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row 'Letzte beschriebene Zelle in Spalte A
     End With

Dim lngZeile As Long
If ComboBox56.ListIndex + 1 Then
     lngZeile = ComboBox56.ListIndex + 3 'Beginnt mit A3, also Zeile 3, der Index beginnt mit 0
     TextBox53.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 1)
     TextBox2.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 2)
     TextBox3.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 3)
     TextBox49.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 4)
     TextBox50.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 5)
     ComboBox10.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 6)
     ComboBox1 = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 8)
     TextBox5.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 9)
    TextBox6.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 10)
    TextBox48.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 11)
    TextBox7.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 12)
    TextBox51.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 13)
    TextBox8.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 14)
    ComboBox20.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 15)
    ComboBox22.Text = ThisWorkbook.Sheets("AUSWERTUNG").Cells(lngZeile, 16)
     End If
End Sub

oder hier

Private Sub UserForm_Initialize()
Dim Daten As Worksheet
Set Daten = Worksheets("Daten")         'Auswahlgrundlage der Datensätze wie unten angeführt
Application.ScreenUpdating = False
Daten.Activate
[...]

Der auswahlbereich ist nur in Spalte A

noch eine kurze frage

bei der zeile

f ComboBox56.ListIndex + 1 Then
 

das +1, bedeutet das wo er zu suchen beginnt?

lg gerhard