HERBERS Excel-Forum - das Archiv
Thema: alle Blätter beim verlassen in Zelle A1 | Herbers Excel-Forum
alle Blätter beim verlassen in Zelle A1
S.
Hallo zusammen,
ich möchte gern, dass beim Verlassen meiner Excel-Datei alle Blätter
nach oben und links gescrollt werden und zusätzlich alle Blätter in Zelle A1 springen.
Die Anzahl der Blätter ist variabel und ändert sich.
Für eine kurze Hilfe bin ich sehr Dankbar.
Gruß
AW: alle Blätter beim verlassen in Zelle A1
Chris
Sub Blubb()
For Each Blatti In ActiveWorkbook.Worksheets
Blatti.Activate
ActiveSheet.Range("A1").Select
Next
End Sub
Beim Schließen oder Wechseln der Mappe ?
NoNet
Hallo S.
was meinst Du mit "Verlassen" ? - Schließen der mappe oder nur Wechseln des Fensters in eine andere Mappe (oder Öffnen einer neuen Mappe) ?
Beim Schließen wäre das mit diesem VBA-Code möglich (in das Klassenmodul "DieseArbeitsmappe" kopieren) :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wsh As Worksheet
For Each wsh In Worksheets
wsh.Activate
Application.Goto "R1C1", True
Next
Sheets(1).Activate 'Erstes Blatt aktivieren
End Sub
Gruß, NoNet
Beim Wechseln des Blatt's dafür einfacher ;-) oT
Renee
AW: Beim Wechseln des Blatt's dafür einfacher ;-) oT
S.
Dankeschön für die super schnelle Antwort es funktioniert
Excel-Beispiele