Slider übernimmt Werte nicht
08.12.2020 14:44:58
CaroDe
ich habe eine Abfrage mit Slider definiert. Durch das Verschieben des Reglers soll in einer Textbox der Wert festgehalten werden.
Zum Einen, habe ich das Problem, dass ich keinen Wert ausgegeben bekomme - in meiner Tabelle erscheint immer der Wert 0, egal wo ich den Regler hinziehe.
Zum Anderen nutze ich eine Userform mit Multiregister. Wenn man zwischen den Reitern wechselt, geht der Wert des Reglers verloren. Kann man das fixieren?
Hier der Code:
'TB mit Wert aus Slider
Private Sub TextBox1_Change()
TextBox1.Value = Slider1.Value
End Sub
'Navigation
Private Sub CommandNext2_Click()
MultiPage1.Value = MultiPage1.Value + 1
'Auswahl speichern Stressbarometer
Dim TB As Worksheet, SP As Integer, LR As Long
Set TB = Sheets("Data Stress")
SP = 1 'Daten sollen in Spalte A
With TB
LR = .Cells(.Rows.Count, SP).End(xlUp).Row + 1 'erte freie Zeile
.Cells(LR, SP) = Environ("Username")
.Cells(LR, SP + 1) = Format(Now, "DD.MM.YYYY hh_mm_ss")
.Cells(LR, SP + 2).Value = Slider1.Value
End With
End Sub
Für eure Hilfe wäre ich sehr dankbar
Liebe Grüße
Caro