Thema Datum  Von Nutzer Rating
Antwort
Rot Schieberegler in USerForm reagiert nicht bei 0 oder 10
 25.03.2019 10:10:34 uli
NotSolved
25.03.2019 10:57:25 Gast54943
NotSolved
25.03.2019 11:00:28 Uli
Solved
25.03.2019 17:21:32 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
uli		 Datum:
25.03.2019 10:10:34		 Views:
931		 Rating:
     
Antwort:
  Ja
Thema:
Schieberegler in USerForm reagiert nicht bei 0 oder 10

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?

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Schieberegler in USerForm reagiert nicht bei 0 oder 10
 25.03.2019 10:10:34 uli
NotSolved
25.03.2019 10:57:25 Gast54943
NotSolved
25.03.2019 11:00:28 Uli
Solved
25.03.2019 17:21:32 Gast7777
NotSolved