Auf jedem Tabellenblatt zurück in A1 springen
20.02.2009 10:58:00
Bernd
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
Anzeige