Zellmarkierungen auf andere Blätter übertragen

Hallo zusammen,
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.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BlattWechseln1() With ActiveWindow Dim Zeile, Spalte, Markierung Zeile = .ScrollRow Spalte = .ScrollColumn Markierung = .Selection.Address '### NEU If ActiveSheet.Index < Sheets.Count Then Sheets(ActiveSheet.Index + 1).Activate Else Sheets(1).Activate End If .ScrollRow = Zeile .ScrollColumn = Spalte Range(Markierung).Select '### NEU End With End Sub

Hi Mathias,
jetzt ist leider genau das passiert was ich nicht wollte. Die Markierungen werden zwar übertragen wenn ich jedoch auf dem Ursprungsblatt gewisse Zellen markieren und dann auf dieser Seite scrolle, dann wird mir die nächste Seite nach ausführen des Makros nur im Bereich der markierten Zellen angezeigt. Ich sehe jetzt aber leider nicht mehr den Ausschnitt der Seite zuvor. Probiere mein Makro einmal ohne Deine Ergänzung aus, wähle einen beliebigen Ausschnitt und fürhe das Makro aus. Füge jetzt Deiene Ergänzungen ein und, markiere ein, zwei Zellen und scrolle so weit dass Du die Markierungen nicht mehr sehen kannst. Führe jetzt das Makro mit Deinen Ergänzugen aus.
Gruß Werner.

Sub BlattWechseln1() With ActiveWindow Dim Zeile, Spalte, Markierung Zeile = .ScrollRow Spalte = .ScrollColumn Markierung = .Selection.Address '### NEU If ActiveSheet.Index < Sheets.Count Then Sheets(ActiveSheet.Index + 1).Activate Else Sheets(1).Activate End If ActiveSheet.Range(Markierung).Select '### NEU .ScrollRow = Zeile .ScrollColumn = Spalte End With End Sub

Beliebteste Forumthreads (12 Monate)

Zellmarkierungen auf andere Blätter übertragen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellmarkierungen auf andere Blätter übertragen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread