Spinbutton in UsreForm
10.02.2020 10:22:57
Antonio
ich habe in einer UserForm ein SpinButton mit dem ich in ein Listbox auf und Ab eine Zeile wählen kann, hier der Code:
Private Sub SpinButton1_SpinDown()
If ListBox3.ListIndex + 1 0 Then
ListBox3.Selected(ListBox3.ListIndex - 1) = True
TextBox6.Value = TextBox6.Value - 1
Else
ListBox3.Selected(ListBox3.ListCount - 1) = True
SpinButton1.Value = ListBox3.ListCount - 1
TextBox6.Value = 0
End If
ListBox4.ListIndex = ListBox3.ListIndex
ListBox5.ListIndex = ListBox3.ListIndex
ListBox6.ListIndex = ListBox3.ListIndex
End Sub
Jetzt habe ich ein TextBox neben den Spinbutton um die Zeilen zu zählen da sie unterschiedlich lang sind.ein Problem ist das mit den Textbox nicht 100% klappt, es zählt zwar vorwärts von 1 bis zeile ende dann aber anstatt von 1 wieder zu anzufangen, wie der ListBox auch tut, zeigt mir -1, -2, -3, usw.
Ich erkenne mein Fehler nicht und alles was ich gefunden habe bezieht sich auf ein SpinButton in einer Tebelle.
Ich bitte hier um ein wenig Hilfe.
Vielen Dank im Voraus
Antonio