Sichtbaren Bereich ändern
23.10.2021 21:01:22
SchubertFranzl
In Blatt1 ist ein Bereich weit rechts und weit unten sichtbar, also erst die fixierten Zeilen und Spalten und dann der aktuelle Bereich.
Nun soll ein Makro das Blatt1 so einstellen, dass alles ab A1 sichtbar ist. Aber ohne vom aktiven Blatt zu gehen, das nicht Blatt1 ist.
Jetzt mache ich das so:
Die aktive Zelle ist in einem anderen Blatt als Blatt1.
Das Makro steht in einem allgemeinem Modul.
Sub Auswerten()
'Ein beliebiges Blatt ist aktiv
Call Blatt_Anfang(Selection)
End Sub
Sub Blatt_Anfang(rZelle As Range)
With rZelle
'einige Zeilen
End With
Worksheets(1).Activate 'Wechsel zu Blatt1
ActiveWindow.ScrollColumn = 1 'Blatt 1: Alle Spalten werden ab links angezeigt
ActiveWindow.ScrollRow = 1 'Blatt 1: Alle Zeilen werden ab oben angezeigt
rZelle.Worksheet.Activate 'Zurückwechseln zum Blatt von rZelle
End Sub
Geht das auch irgendwie anders, ohne das Blatt zu wechseln?
LG, Franz