Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Auf jedem Tabellenblatt zurück in A1 springen

Auf jedem Tabellenblatt zurück in A1 springen
20.02.2009 10:58:00
Bernd
Hallo,
ich habe mehrere Tabellenblätter und möchte, nachdem ich nachfolgende Module ausgeführt habe, daß auf jedem Tabellenblatt wieder A1 die aktive Zelle ist. Derzeit ist bei mir immer D7 aktiv.
Modul 1: Hier wird die Kopfzeile erstellt

Sub KopftextLinks()
Dim i As Long
Dim Blatt As Worksheet
'  ActiveWorkbook.Sheets(arrBlatt).Printout 'Direkt drucken
For i = 2 To ActiveWorkbook.Worksheets.Count
Set Blatt = Worksheets(i)
With Blatt.PageSetup
'Linke Kopfzeile vom 2. bis letzten Blatt setzen
'Schrift = Arial, Fett
'Schriftgröße = 12 Punkt
.LeftHeader = "&""Arial,Fett""&10Anlage 1 Blatt &P von &N zur Konformitätserklärung " _
& Worksheets(1).Range("D7").Text & " vom " _
& Format(Worksheets(1).Range("D11"), "DD.MM.YYYY")
End With
Next
End Sub


Modul 2: Druckvorschau (mit angepaßtem "Seite x von y")


Sub Drucken()
Dim i As Long, j As Long, arrBlatt() As String
Call KopftextLinks
'zu druckende Blätter in Array speichern
For i = 2 To ActiveWorkbook.Worksheets.Count
j = j + 1
ReDim Preserve arrBlatt(1 To j)
arrBlatt(j) = Worksheets(i).Name
Next
ActiveWorkbook.Sheets(arrBlatt).PrintPreview 'Seitenvorschau anzeigen
'  ActiveWorkbook.Sheets(arrBlatt).Printout 'Direkt drucken
Worksheets(1).Activate
End Sub


Was muß ich am Code ändern, so daß nach deren Ausführung A1 anstatt D7 aktiviert ist?
Schöne Grüße
Junker

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Range("A1").Select o.w.T.
20.02.2009 11:16:00
Ramses
...
AW: Range("A1").Select o.w.T.
20.02.2009 11:20:00
Bernd
Danke ...
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige