die Bildlaufleisten eines Tabellenblatts sind ausgeschaltet. Ist es möglich mit Hilfe der -auf einer UF eingefügten- ScrollBar das Tabellenblatt um ca. 200 Zeilen vertikal zu verschieben?
mfg
reiner
Private Sub ScrollBar1_Change()
ActiveWindow.ScrollRow = ScrollBar1.Value
End Sub
Private Sub UserForm_Activate()
With ScrollBar1
.Min = 1
.Max = 200
.Value = 1
.LargeChange = 10
.SmallChange = 1
End With
End Sub