Private Sub SpinButton5_SpinDown()
Dim Kunde As Integer
Kunde = TextBox8.Value
Me.SpinButton5.Min = Worksheets("Stammdaten").Cells(1, Kunde)
Me.SpinButton5.Max = Worksheets("Stammdaten").Cells(Kunde, 2).End(xlUp).Row + 1
TextBox31 = Worksheets("Stammdaten").Cells(SpinButton5, 1) 'Index
TextBox32 = Worksheets("Stammdaten").Cells(SpinButton5, 3)
TextBox33 = Worksheets("Stammdaten").Cells(SpinButton5, 4)
TextBox34 = Worksheets("Stammdaten").Cells(SpinButton5, 5)
End Sub
Vielen Dank!