Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle Sheets auf Zelle A1

Alle Sheets auf Zelle A1
06.02.2006 08:14:54
Günter
Guten Morgen,
wie könnte ich mit einem Makro in einer
Excel-Datei mit 40 Tabellenblätter den Zeiger
für alle Tabellenblätter auf Zelle A1 stellen ?
Mit Zeiger meine ich die aktuelle Zelle.
Gruss
Günter

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Sheets auf Zelle A1
06.02.2006 09:54:42
Manfred
Hallo Günter,
das kannst du dir doch einfach mit deinem Makrorekorder aufzeichnen, dann kommt da so etwas raus. Nun mußt du es nur um alle deine Tabellenblätter erweitern. FERTIG!!!

Sub Günter()
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Sheets("Tabelle1").Activate
Range("A1").Select
Sheets("Tabelle1").Select
End Sub

Gruss Manfred
Rückmeldung wäre nett.
AW: Alle Sheets auf Zelle A1
06.02.2006 10:03:40
Günter
Vielen Dank!
Gruss
Günter
AW: Alle Sheets auf Zelle A1
06.02.2006 12:18:08
Mag
Hi,

Sub test()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
Set wb = ActiveWorkbook
For i = 1 To wb.Sheets.Count
Set ws = wb.Sheets(i)
ws.Activate
ws.Cells(1, 1).Select
Next i
Set ws = Nothing
Set wb = Nothing
End Sub

Gruss
Anzeige
AW: Alle Sheets auf Zelle A1
06.02.2006 14:25:46
Günter
Danke Mag!!!!
Gruß
Günter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige