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