Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

In allen Blättern A1 markieren -Prob mit Fixierung

In allen Blättern A1 markieren -Prob mit Fixierung
02.12.2005 10:55:25
sekre
Hiho,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In allen Blättern A1 markieren -Prob mit Fixierung
02.12.2005 11:07:16
u_
Hallo,
das geht auch nicht mit Select.

Sub A1inAllCells()
Dim ws As Worksheet
For Each ws In Worksheets
Application.Goto ws.Range("A1"), True
Next ws
Worksheets(1).Select
End Sub
Gruß
Geist ist geil!
AW: In allen Blättern A1 markieren -Prob mit Fixierung
02.12.2005 11:17:51
sekre
Danke, geht :)
AW: In allen Blättern A1 markieren -Prob mit Fixierung
02.12.2005 11:13:17
Daniel
Hallo sekre
versuchs mal so:

Sub A1inAllCells()
Dim ws As Worksheet
For Each ws In Sheets
ws.Select
ws.Range("A1").Select
Next ws
Worksheets(1).Select
End Sub

Viel Erfolg
Gruss
Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige