4 Spalten nach rechts
17.07.2022 05:55:03
oraculix
In meiner schmalen Userform (Show Modal False) habe ich einen Commandbutton der mir immer 4 Spalten nach rechts scrollt.
Aber ab Spalte IZ sollte er nicht mehr weiter scrollen.
Frage :
Wie baue ich einen Stop in das untenstehende Makro ein das er bei Spalte IZ nicht weiter scrollt?
'4 Spalten nach nach Rechts
Private Sub CommandButton4_Click()
ActiveWindow.ScrollColumn = ActiveWindow.VisibleRange.Column + 4
ActiveWindow.ScrollColumn = WorksheetFunction.Max(1, ActiveWindow.VisibleRange.Column + 4)
if Columb IZ Then 'Hier sollte der Stop noch rein weis aber leider nicht mehr weiter!
Stop
end if
End Sub
Gruß
Oraculix
Anzeige