Hallo zusammen,
ich habe eine relativ einfache UserForm in der sich 8 Schieberegler befinden. Die Schieberegler haben den wert Min=0 und Max=10. Beim verschieben der Regler sollen Prozentwerte in eine bestimmte Zelle geschrieben werden (daher teile ich die Werte einfach durch 10.
Das funktioniert auch soweit ohne Probleme, nur wenn cih den regler auf Max (=10) oder Min (=0) Schiebe, dann wird kein Wert in die Zelle geschrieben. Das Problem ist, dass in diesem Fall, die Sub nicht aufgerufen wird. Ich ahbe bereits Haltepunkte gesetzt, den nRegel auf max (oder min) geschoben, aber die Sub wird nciht aufgerufen. Wähle ich einen anderen Wert zwischen 0 und 10, funktioniert es ohne Probleme. Worankann das leigen?
Private Sub UserForm_Initialize()
Slider1.Value = Sheets("1_Unternehmensbewertung").Range("C1").Value * 10
Slider2.Value = Sheets("1_Unternehmensbewertung").Range("D1").Value * 10
Slider3.Value = Sheets("1_Unternehmensbewertung").Range("E1").Value * 10
Slider4.Value = Sheets("1_Unternehmensbewertung").Range("F1").Value * 10
Slider5.Value = Sheets("1_Unternehmensbewertung").Range("G1").Value * 10
Slider6.Value = Sheets("1_Unternehmensbewertung").Range("H1").Value * 10
Slider7.Value = Sheets("1_Unternehmensbewertung").Range("I1").Value * 10
Slider8.Value = Sheets("1_Unternehmensbewertung").Range("J1").Value * 10
End Sub
Private Sub Slider1_Click()
Sheets("Tabelle1").Range("C1").Value = Me.Slider1.Value / 10
End Sub
Private Sub Slider2_Click()
Sheets("Tabelle1").Range("D1").Value = Me.Slider2.Value / 10
End Sub
Private Sub Slider3_Click()
Sheets("Tabelle1").Range("E1").Value = Me.Slider3.Value / 10
End Sub
Private Sub Slider4_Click()
Sheets("Tabelle1").Range("F1").Value = Me.Slider4.Value / 10
End Sub
Private Sub Slider5_Click()
Sheets("Tabelle1").Range("G1").Value = Me.Slider5.Value / 10
End Sub
Private Sub Slider6_Click()
Sheets("Tabelle1").Range("H1").Value = Me.Slider6.Value / 10
End Sub
Private Sub Slider7_Click()
Sheets("Tabelle1").Range("I1").Value = Me.Slider7.Value / 10
End Sub
Private Sub Slider8_Click()
Sheets("Tabelle1").Range("J1").Value = Me.Slider8.Value / 10
End Sub
Danke für Eure Hilfe.
Uli
|