Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Scrollbar Negativwert

Scrollbar Negativwert
21.04.2020 14:00:42
Florian
Hallo zusammen,
mit Hilfe eines Scrollbars möchte ich einen Wert zwischen -50 und +50 in Zelle E6 ausgeben, wobei anfangs ein Wert in E6 vordefiniert ist (Eigenschaften->LinkedCell). Sobald ich den Wert 0 unterschreite, sollte logischerweise -1 ausgegeben werden, jedoch wird mir der Wert 65535 angegeben.
Private Sub ScrollBar1_Change()
Activesheet.ScrollBar1.Max = 50
Activesheet.ScrollBar1.Min = -50
End Sub
Wie muss ich meine Funktion ändern, damit auch die negativen Werte korrekt angezeigt werden?
Danke für eure Unterstützung!
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Scrollbar Negativwert
21.04.2020 14:06:11
Daniel
Hi
der kleinste Wert für die Scrollbar ist immer 0.
du müsstest dann die Scrollbar von 0 bis 100 definieren und vom Ergebnis 50 abziehen.
Gruß Daniel
AW: Scrollbar Negativwert
21.04.2020 14:13:14
Nepumuk
Hallo Florian,
schmeiß die LinkedCell raus, whle im Eigenschaftsfenster für Min 1 und für Max 100 und mache es so:
Private Sub ScrollBar1_Change()
    Cells(1, 1).Value = ScrollBar1.Value - 50
End Sub

Gruß
Nepumuk
Anzeige
AW: Scrollbar Negativwert
21.04.2020 15:14:01
Planlos
Hallo
Der Wordwert 65535 ist das äquivalent zum integer -1. die Berechnung der Negativen werte ist dann:
DeinWordwert - 65536.
;
Anzeige
Anzeige

Infobox / Tutorial

Scrollbar Negativwert in Excel einstellen


Schritt-für-Schritt-Anleitung

Um einen Excel Schieberegler (Scrollbar) einzufügen, der Werte zwischen -50 und +50 korrekt anzeigt, folge diesen Schritten:

  1. Excel Schieberegler einfügen:

    • Gehe zu Entwicklertools > Einfügen und wähle den Schieberegler aus der Formularsteuerelemente.
    • Zeichne den Schieberegler auf deinem Arbeitsblatt.
  2. Eigenschaften des Schiebereglers anpassen:

    • Rechtsklicke auf den Schieberegler und wähle Steuerelement formatieren.
    • Setze im Tab Steuerelement den Minimalwert auf 0 und den Maximalwert auf 100.
  3. VBA-Code hinzufügen:

    • Öffne den VBA-Editor mit Alt + F11.
    • Doppelklicke auf das Arbeitsblatt, in dem sich der Schieberegler befindet.
    • Füge folgenden Code ein:
    Private Sub ScrollBar1_Change()
       Cells(6, 5).Value = ScrollBar1.Value - 50
    End Sub
  4. LinkedCell entfernen:

    • Stelle sicher, dass im Eigenschaftenfenster die LinkedCell nicht gesetzt ist, damit der Schieberegler unabhängig agiert.

Mit dieser Konfiguration wird der Wert in Zelle E6 entsprechend dem Schieberegler von -50 bis +50 aktualisiert.


Häufige Fehler und Lösungen

  • Problem: Der Wert in E6 zeigt 65535 an.

    • Lösung: Dies passiert, weil der Schieberegler nur von 0 bis 100 eingestellt ist. Stelle sicher, dass du im Code den Wert um 50 reduzierst, um negative Werte anzuzeigen.
  • Problem: Der Schieberegler bewegt sich nicht.

    • Lösung: Überprüfe die Min und Max Werte im Steuerelementformat. Sie sollten korrekt auf 0 und 100 eingestellt sein.

Alternative Methoden

Eine alternative Möglichkeit, mit negativen Werten zu arbeiten, ist die Verwendung von Excel VBA ohne Schieberegler:

  1. Erstelle zwei separate Schieberegler: einen für negative und einen für positive Werte.
  2. Kombiniere die Werte aus beiden Schiebereglern in einer Zelle mit einer einfachen Formel.

Praktische Beispiele

Hier ist ein praktisches Beispiel, wie du die Scrollbar in einem Excel-Arbeitsblatt verwenden kannst:

  1. Füge den Schieberegler ein und passe die Eigenschaften an wie oben beschrieben.
  2. Verwende den folgenden VBA-Code, um den Wert in Zelle E6 zu setzen:

    Private Sub ScrollBar1_Change()
       Cells(6, 5).Value = ScrollBar1.Value - 50
    End Sub

Wenn du den Schieberegler nach unten bewegst, wird der Wert von E6 negativ und zeigt den korrekten Wert an.


Tipps für Profis

  • Stelle sicher, dass du die ScrollBar-Eigenschaften gut verstehst, bevor du im VBA-Code Änderungen vornimmst.
  • Experimentiere mit verschiedenen Minimal- und Maximalwerten, um die Funktionalität des Schiebereglers zu erweitern.
  • Nutze den Excel VBA-Editor, um komplexere Logik zu erstellen, falls du mehrere Steuerelemente kombinieren möchtest.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Schieberegler in Excel verwenden?
Du kannst mehrere Schieberegler einfügen, indem du die oben genannten Schritte wiederholst. Stelle sicher, dass jeder Schieberegler eine eigene VBA-Subroutine hat.

2. Warum zeigt mein Schieberegler nur positive Werte an?
Der Schieberegler kann standardmäßig keine negativen Werte anzeigen. Du musst die Werte im VBA-Code anpassen, um die negativen Werte korrekt darzustellen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige