Blattwechsel
11.08.2006 16:43:05
Marion
ich habe mir ein Makro erstellt mit dem ich zum nächsten Arbeitsblatt in einer Mappe wechseln und dort den gleichen Ausschnitt sehen kann wie auf dem aktuellen Arbeitsblatt. Wenn zB. die Zelle H10 im aktuellen Arbeitsblatt in der oberen linken Ecke steht, so steht sie auf dem neu gewählten Arbeitsblatt auch in der oberen linken Ecke.
Sub BlattWechseln()
Dim Zeile As Long, Spalte As Integer
With ActiveWindow
Zeile = .ScrollRow
Spalte = .ScrollColumn
Sheets("Tabelle2").Select 'gewünschtes Tabellenblatt zeigen
.ScrollRow = Zeile
.ScrollColumn = Spalte
End With
End Sub
Mein Problem ist, dass ich hier immer nur zu einem bestimmten (in diesem Fall das 2. ) Tabellenblatt wechseln kann. Ich würde aber gerne jedes Mal wenn ich das Makro starte, vom aktuellen Tabellenblatt zum nächst höheren Blatt wechseln. Wenn das letzte Tabellenblatt erreicht ist müsste dann wieder das erste ausgewählt werden.
Wäre lieb wenn mir jemand weiter helfen könnte. Vielen Dank im Voraus,
Marion.
Anzeige