UserForm - Tabellenblatt - Scrollen!

Über eine UserForm soll in einem Tabellenblatt gescrollt werden. Dies ist über zwei "ScrollBars" geregelt. Die Parameter für das scrollen werden im "Activate-Ereignis" der UserForm gesetzt. Interessant hier "SmallChange" und "LargeChange". Erklärungen auch im Download.

UserForm - Tabellenblatt - scrollen...[ZIP, 1.500 KB]

Benötigt wird eine UserForm mit zwei ScrollBar (ScrollBar1 und ScrollBar2).

Option Explicit
Private Sub UserForm_Activate()
Dim lngColumn As Long
Dim lngRow As Long
With ActiveSheet
lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row
lngColumn = .Cells.Find("*", , , , xlByColumns, _
xlPrevious).Column
End With
With ScrollBar1
.Min = 1
.Max = lngRow
.Value = 1
.LargeChange = 30
.SmallChange = 1
End With
With ScrollBar2
.Min = 1
.Max = lngColumn
.Value = 1
.LargeChange = 15
.SmallChange = 1
End With
End Sub
Private Sub ScrollBar1_Change()
ActiveWindow.ScrollRow = ScrollBar1.Value
End Sub
Private Sub ScrollBar2_Change()
ActiveWindow.ScrollColumn = ScrollBar2.Value
End Sub

Kommentare

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...