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

Please also mark the comments that contributed to the solution of the article

Content-Key: 398403

Url: https://administrator.de/contentid/398403

Printed on: April 26, 2024 at 22:04 o'clock

7 Comments

Latest comment

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:

'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

Ja, aber die sind leider zu schlecht zu bedienen. Die Liste ist sehr breit und hat viele Spalten, anstatt Zeilen.

Das Skript ist schon ganz gut, vielen Dank erst einmal dafür. Eigentlich suche ich nur die Funktion die Ansicht zu scrollen, wie bei den regulären Pfeiltasten von Office.

Im Skript springt die Ansicht stets zu aktiven Zelle.

Dann mach einfach aus

ActiveWindow.ScrollColumn = ActiveCell.Column

ein

  ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + 1

Beim linken Button dann das ganze entsprechend mit -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

Super perfekt, vielen Dank.

Ooooch, keine Ursache.

German solved Question Microsoft Office Microsoft