Excell Tabellenblatt scroll links und rechts VBA Button
Hallo liebe Leute,
ich würde gerne in meiner Excel Tabelle zwei Buttons einfügen mit denen ich das Tabellenblatt nach links und rechts verschieben kann.
ich habe es mit der Funktion ActiveWindow.ScrollColumn = x probiert. Leider funktioniert es nur einmal und der Button sollte mitwandern.
Vielleicht habt ihr noch ein paar Ideen und Tipps für mich.
Danke schon einmal im Voraus.
best regards
Termiman
ich würde gerne in meiner Excel Tabelle zwei Buttons einfügen mit denen ich das Tabellenblatt nach links und rechts verschieben kann.
ich habe es mit der Funktion ActiveWindow.ScrollColumn = x probiert. Leider funktioniert es nur einmal und der Button sollte mitwandern.
Vielleicht habt ihr noch ein paar Ideen und Tipps für mich.
Danke schon einmal im Voraus.
best regards
Termiman
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 398403
Url: https://administrator.de/forum/excell-tabellenblatt-scroll-links-und-rechts-vba-button-398403.html
Ausgedruckt am: 23.12.2024 um 02:12 Uhr
7 Kommentare
Neuester Kommentar
Hi,
Du meinst, dass der Button immer sichtbar bleibt?
Das könntest Du am einfachsten erreichen, in dem Du den Button nicht in der Tabelle sondern in der Menüzeile platzierst.
Oder, was auch geht, ist ein nicht-modales UserForm mit einem Button drauf. Diese Form lässt Du beim Öffnen des Dokuments starten.
E.
Edit:
Du meinst, dass der Button immer sichtbar bleibt?
Das könntest Du am einfachsten erreichen, in dem Du den Button nicht in der Tabelle sondern in der Menüzeile platzierst.
Oder, was auch geht, ist ein nicht-modales UserForm mit einem Button drauf. Diese Form lässt Du beim Öffnen des Dokuments starten.
E.
Edit:
'Links
Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column - 1).Select
ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub
'Rechts
Private Sub CommandButton2_Click()
On Error Resume Next
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub
Wäre ja auch zu einfach die Scrollbar-Buttons zu benutzen
Dann mach einfach aus
Beim linken Button dann das ganze entsprechend mit -1.
Die Zeile mit dem Select kann dann ebenfalls entfallen.
Wenn du willst kannst du auch die entsprechenden Methoden zum Scrollen benutzen
Window.SmallScroll-Methode (Excel)
Zum eine Spalte rechts scrollen
Zum eine Spalte links scrollen
ActiveWindow.ScrollColumn = ActiveCell.Column
ein ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + 1
Die Zeile mit dem Select kann dann ebenfalls entfallen.
'Links
Private Sub CommandButton1_Click()
On Error Resume Next
ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn -1
End Sub
'Rechts
Private Sub CommandButton2_Click()
On Error Resume Next
ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn +1
End Sub
Wenn du willst kannst du auch die entsprechenden Methoden zum Scrollen benutzen
Window.SmallScroll-Methode (Excel)
Zum eine Spalte rechts scrollen
ActiveWindow.SmallScroll 0, 0, 1, 0
Zum eine Spalte links scrollen
ActiveWindow.SmallScroll 0, 0, 0, 1