Microsoft Excel

Herbers Excel/VBA-Archiv

alle Blätter beim verlassen in Zelle A1 | Herbers Excel-Forum


Betrifft: alle Blätter beim verlassen in Zelle A1 von: S.
Geschrieben am: 11.12.2009 14:21:12

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ß

  

Betrifft: AW: alle Blätter beim verlassen in Zelle A1 von: Chris
Geschrieben am: 11.12.2009 14:35:09

Sub Blubb()

For Each Blatti In ActiveWorkbook.Worksheets
Blatti.Activate
ActiveSheet.Range("A1").Select

Next

End Sub



  

Betrifft: Beim Schließen oder Wechseln der Mappe ? von: NoNet
Geschrieben am: 11.12.2009 14:36:14

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
Beim Wechseln der Mappe ist das etwas komplizierter...

Gruß, NoNet


  

Betrifft: Beim Wechseln des Blatt's dafür einfacher ;-) oT von: Renee
Geschrieben am: 11.12.2009 14:50:33




  

Betrifft: AW: Beim Wechseln des Blatt's dafür einfacher ;-) oT von: S.
Geschrieben am: 11.12.2009 15:43:02

Dankeschön für die super schnelle Antwort es funktioniert


Beiträge aus den Excel-Beispielen zum Thema "alle Blätter beim verlassen in Zelle A1"