Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Alle Sheets auf Zelle A1

Forumthread: Alle Sheets auf Zelle A1

Alle Sheets auf Zelle A1
06.02.2006 09: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Sheets auf Zelle A1
06.02.2006 10: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.
Anzeige
AW: Alle Sheets auf Zelle A1
06.02.2006 11:03:40
Günter
Vielen Dank!
Gruss
Günter
AW: Alle Sheets auf Zelle A1
06.02.2006 13: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 15:25:46
Günter
Danke Mag!!!!
Gruß
Günter

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige