SpinButton
19.10.2004 18:14:54
Erich
habe ein kleines Problem, in meiner Userform habe steuere ich über einen Spinbutton die Anzeige meiner Daten in den Textboxen, soweit so gut.
nun zu meiner Frage die datensätze weren immer von oben nach unten angezeigt
datensatz 1
beim nächsten klick datensatz 2 usw.
ich möchte aber das zuerst der letzte datensatz angezeit wird dann der vorletzte usw.
ist das möglich?
wenn ja bitte ich euch um hilfe.
unten stehen der Code mit den dich die Datensätze scrolle.
Private Sub SpinButton1_Change()
CommandButton1.Visible = False
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
Label126.Visible = False
Label127.Visible = False
Label128.Visible = False
Label129.Visible = False
Dim iCounter As Integer
TextBox1.Text = Cells(SpinButton1.Value, 1)
TextBox2.Text = Format(CDate(Cells(SpinButton1.Value, 2)), "hh:mm")
For iCounter = 3 To 209
Controls("TextBox" & iCounter).Text = _
Cells(SpinButton1.Value, iCounter)
Next iCounter
Me.SpinButton1.Max = Cells(65536, 1).End(xlUp).Row
End Sub
gruß
erich
Anzeige