Code-Berechnung ausführen.
28.10.2012 22:05:39
Golem
Ich habe aufgrund einer Frage in diesem Forum folgenden Code erhalten:
Private Sub Worksheet_Calculate2()
ScrollBar2.Max = IIf(Range("AK9") "", Range("AK9"), ScrollBar2.Max = ScrollBar2.Min)
ScrollBar2.Min = IIf(Range("AI9") "", Range("AI9"), ScrollBar2.Min = ScrollBar2.Max)
End Sub
und geringfügig angepasst.Hiermit ist es bisher möglich gewesen, durch ändern der Werte in den Zellen AK9 und AI9, den
Min- und Maxwert des Schiebereglers automatisch anzupassen.
Das hat auch bisher einwandfrei funktioniert.
Seit kurzer Zeit werden die Min- und Maxwerte nicht mehr automatisch angepasst.
Nur wenn ich den Code markiere und Sub/UserForm ausführen betätige, erfolgt eine Anpassung der Min- und Maxwerte .
Ich vermute, dass durch Erweiterung der Anzahl der zu berechnenden Zellinhalte dieses automatische berechnen nicht mehr erfolgt.
Kann evtl. der Code angepasst werden, dass bei Veränderung der Zellinhalte AK9 und AI9 eine Anpassung der
Min- und Maxwerte erzwungen wird ( evtl. auch mit einen Butten )?
Die Werte in beiden Zellen werden nicht händisch eingegeben, sondern durch Neuberechnung.
Schöne Grüße Golem