Tabellenblatt weiter Blättern per VBA
juergen
möchte per Makro ( Button ) innerhalb einer Tabelle vor und zurück blättern; >
Habe verschiedene Makros dafür, funktinoiert mehr recht als schlecht:(
Beim Vorwärts blättern, habe ich immer eine unterschiedliche "Ansicht", hmm....
Frage: Kann mir vieleicht bitte jemand mitteilen, was ich falsch mache?
Was ich möchte: möchte per "Klick(Makro)" sowohl vorwärts als auch rückwärts innerhalb des aktiven Tabellenblattes hin und her wechseln können, wobei eine von mir bestimmte "Tabellenblattansicht" gehalten wird z. B. Immer 4Spalten und 132Zeilen!
Sub blättern1()
' blättern2 Makro
ActiveWindow.SmallScroll ToRight:=5
Range("h3:h4").Select
End Sub
Sub blättern2()
' blättern2 Makro
ActiveWindow.SmallScroll ToRight:=4
Range("m3:m4").Select
End Sub
Sub blättern3()
' blättern2 Makro
ActiveWindow.SmallScroll ToRight:=4
Range("q3:q4").Select
End Sub
Sub blättern4()
' blättern2 Makro
ActiveWindow.SmallScroll ToRight:=4
Range("u3:u4").Select
End Sub
Sub blättern5()
' blättern2 Makro
ActiveWindow.SmallScroll ToRight:=4
Range("y3:y4").Select
End Sub
Sub blättern6()
' blättern2 Makro
ActiveWindow.SmallScroll ToRight:=4
Range("ac3:ac4").Select
End
Sub
(usw..........................................
Sub Zurück2()
' Zurück2 Makro
ActiveWindow.SmallScroll ToRight:=-4
Range("c3:c4").Select
End Sub
Sub Zurück3()
' Zurück3 Makro
ActiveWindow.SmallScroll ToRight:=-5
Range("h3:h4").Select
End Sub
Sub Zurück4()
' Zurück4 Makro
ActiveWindow.SmallScroll ToRight:=-4
Range("m3:m4").Select
End Sub
Sub Zurück5()
' Zurück5 Makro
ActiveWindow.SmallScroll ToRight:=-4
Range("q3:q4").Select
End Sub
Sub Zurück6()
' Zurück6 Makro
ActiveWindow.SmallScroll ToRight:=-4
Range("u3:u4").Select
End Sub
(usw..................