das folgende Makro zeigt mir das jeweils nächste Arbeitsblatt der selben Mappe im gleichen Ausschnitt wie das Blatt zuvor.
Sub BlattWechseln1()
With ActiveWindow
Zeile = .ScrollRow
Spalte = .ScrollColumn
If ActiveSheet.Index < Sheets.Count Then
Sheets(ActiveSheet.Index + 1).Activate
Else
Sheets(1).Activate
End If
.ScrollRow = Zeile
.ScrollColumn = Spalte
End With
End Sub
Zusätzlich würde ich gerne noch alle ausgewählten Zellen bzw. Zeilen auf das nächste Blatt übertragen, auch wenn Sie dann unter Umständen nicht im sichtbaren Bereich lägen.
Hat jemand eine Idee?
Dank im Voraus,
Gruß Werner.