In allen Blättern A1 markieren -Prob mit Fixierung
02.12.2005 10:55:25
sekre
also ich wollte mir ein Makro schreiben, dass in jedem vorhandenen Tabellenblatt die Zelle A1 markiert und anschließend wieder das erste Tabellenblatt aktiviert.
Das läuft auch - nur mein Problem sind die Fixierungen. In diesen tabellenblättern wird zwar die Zelle A1 markiert, allerdings verändern sich dadurch nicht die Fixierungen - d.h. wenn auf dem Tabellenblatt gerade nach unten gescrollt wurde, bleibt das auch nach dem Ausführen des Makros nach unten gescrollt. Allerdings soll es so sein, dass die Fixierungen "sauber" sind (also nach oben gescrollt) und eben Zelle A1 markiert wird ^^ Die Fixierungen sind je nach Tabellenblatt unterschiedlich, also Fixierung wegnehmen udn neu setzen dürfte nicht gehen.
Vielleicht weiß ja einer von euch einen Rat .. schön wärs jedenfalls :)
Das habe ich bis jetzt:
Sub A1inAllCells()
Dim ws As Object
For Each ws In Sheets
ActiveSheet.Range("A1").Select
Next ws
Worksheets(1).Select
End Sub
Anzeige