Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nochmals: Ein Steuerelement mitscrollen lassen?

Nochmals: Ein Steuerelement mitscrollen lassen?
17.05.2004 19:33:22
Frank
Hallo Excelperten!
Mit Hilfe eines Drehfeldes/Spinbuttons kann man in einer von mir erstellten Exceldatei scrollen. Leider scrollt der Spinbutton mit, dies bedeutet natürlich, dass man irgendwann nicht mehr scollen kann, weil man den Button ja nicht mehr sieht. Kurt gab mir den Tipp das Fenster zu fixieren, dass klappt auch wunderbar. Leider stört die schwarze Trennlinie ziemlich. Hat jemand einen Tipp, wie man die Linie wegbekommt oder den Spinbutton mitscrollen lassen kann? Bin für jeden Tipp dankbar!
MfG
Frank
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nochmals: Ein Steuerelement mitscrollen lassen?
Udo
Die Linie bekommst du nicht weg. Wenn du damit nicht leben kannst,
hilft eigentlich nur, den Spinbutton in einem Userform zu platzieren.
Udo
AW: Nochmals: Ein Steuerelement mitscrollen lassen?
17.05.2004 20:48:38
Andre
Hallo Frank,
kannst Du nicht die Position, des Steuerelementes beim Scrollen immer wieder an das Fenster anpassen? Das müsste sich doch über SpinButton.Top machen lassen?
Viele Grüße
André
Anzeige
AW: Nochmals: Ein Steuerelement mitscrollen lassen?
17.05.2004 21:48:51
Frank
Hallo André,
danke für den Tipp. Leider bekomme ich bei SpinButton1.Top die Fehlermeldung "Unzulässige Verwendung einer Eigenschaft". Obwohl der Befehl nach SpinButton1. in dem Dropdown angezeigt wird. Hast du vielleicht noch eine Idee?
MfG
Frank
AW: Nochmals: Ein Steuerelement mitscrollen lassen?
18.05.2004 08:31:32
André
Hallo Frank,
dann probier es mal so.
Voraussetzung ist, dass Deine Zellen genauso hoch sind wie der Wert hinter IncrementTop.
Viele Grüße
André

Private Sub SpinButton1_SpinDown()
ActiveSheet.OLEObjects("SpinButton1").ShapeRange.IncrementTop 12
ActiveWindow.SmallScroll Down:=1
End Sub


Private Sub SpinButton1_SpinUp()
ActiveSheet.OLEObjects("SpinButton1").ShapeRange.IncrementTop 12
ActiveWindow.SmallScroll Down:=1
End Sub

Anzeige
AW: Nochmals: Ein Steuerelement mitscrollen lassen?
18.05.2004 08:34:46
André
sorry, hatte die Minusse vergessen:

Private Sub SpinButton1_SpinDown()
ActiveSheet.OLEObjects("SpinButton1").ShapeRange.IncrementTop -12
ActiveWindow.SmallScroll Down:=-1
End Sub


Private Sub SpinButton1_SpinUp()
ActiveSheet.OLEObjects("SpinButton1").ShapeRange.IncrementTop 12
ActiveWindow.SmallScroll Down:=1
End Sub

Anzeige
AW: Nochmals: Ein Steuerelement mitscrollen lassen?
B.Ate
Hallo Frank
Dieses Sch.... Steuerelement ist lästig wie Fußpilz:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim AktRow, AktSpalte
AktRow = ActiveCell.Row
AktSpalte = ActiveCell.Column
With SpinButton1
.Top = Cells(AktRow, AktSpalte).Top
.Left = Cells(AktRow, AktSpalte + 1).Left
End With
End Sub

Viele Grüße
Beate
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Steuerelemente in Excel: Spinbutton mitscrollen lassen


Schritt-für-Schritt-Anleitung

Um einen Spinbutton in Excel so zu steuern, dass er beim Scrollen sichtbar bleibt, kannst Du die folgenden Schritte befolgen:

  1. Erstelle einen Spinbutton:

    • Gehe zu "Entwicklertools" -> "Einfügen" -> wähle "SpinButton" aus den Steuerlementen.
  2. VBA-Editor öffnen:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Code für den Spinbutton hinzufügen:

    • Füge den folgenden Code in das entsprechende Modul ein:
    Private Sub SpinButton1_SpinDown()
       ActiveSheet.OLEObjects("SpinButton1").ShapeRange.IncrementTop -12
       ActiveWindow.SmallScroll Down:=-1
    End Sub
    
    Private Sub SpinButton1_SpinUp()
       ActiveSheet.OLEObjects("SpinButton1").ShapeRange.IncrementTop 12
       ActiveWindow.SmallScroll Down:=1
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Teste den Spinbutton:

    • Klicke auf den Spinbutton, um zu überprüfen, ob er beim Scrollen mitbewegt wird.

Häufige Fehler und Lösungen

  • Fehlermeldung "Unzulässige Verwendung einer Eigenschaft":

    • Diese Fehlermeldung kann auftreten, wenn Du versuchst, die Top-Eigenschaft des Spinbuttons direkt zu ändern. Stelle sicher, dass Du den Spinbutton über die richtige Methode steuerst, wie im obigen Beispiel beschrieben.
  • Spinbutton scrollt nicht richtig:

    • Überprüfe, ob die Zellen die gleiche Höhe wie der Wert hinter IncrementTop haben. Eine falsche Zellhöhe kann zu unerwartetem Verhalten führen.

Alternative Methoden

Wenn Du den Spinbutton nicht wie gewünscht steuern kannst, könntest Du auch in Betracht ziehen, den Spinbutton in ein Userform zu integrieren. Dies hat den Vorteil, dass Du die Sichtbarkeit des Spinbuttons besser steuern kannst, ohne dass er beim Scrollen verloren geht. Hier ist ein einfacher Ablauf:

  1. Erstelle ein Userform und füge den Spinbutton hinzu.
  2. Programmierung der Spinbutton-Ereignisse entsprechend den oben genannten Methoden.
  3. Zeige das Userform bei Bedarf an.

Praktische Beispiele

Hier ist ein Beispiel, wie Du den Spinbutton in eine Tabelle integrieren kannst:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim AktRow, AktSpalte
    AktRow = ActiveCell.Row
    AktSpalte = ActiveCell.Column
    With SpinButton1
        .Top = Cells(AktRow, AktSpalte).Top
        .Left = Cells(AktRow, AktSpalte + 1).Left
    End With
End Sub

Dieser Code stellt sicher, dass der Spinbutton immer in der Nähe der aktiv ausgewählten Zelle bleibt.


Tipps für Profis

  • Verwendung von Variablen für flexiblere Anpassungen:

    • Du kannst Variablen für die Scrollhöhe und die Position des Spinbuttons definieren, um die Anpassungen dynamisch zu gestalten.
  • Testen in verschiedenen Excel-Versionen:

    • Teste Deinen Code in unterschiedlichen Versionen von Excel, um sicherzustellen, dass alles reibungslos funktioniert.

FAQ: Häufige Fragen

1. Kann ich den Spinbutton in eine Excel-Tabelle einfügen? Ja, Du kannst einen Spinbutton in eine Excel-Tabelle einfügen, indem Du die Entwicklertools verwendest und den Spinbutton aus der Steuerlemente-Liste auswählst.

2. Warum funktioniert der Spinbutton nicht in meiner Excel-Version? Stelle sicher, dass Du die Entwicklertools aktiviert hast und dass Du die richtigen Referenzen im VBA-Editor hinzugefügt hast. Einige Funktionen können in älteren Excel-Versionen nicht verfügbar sein.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige