ich versuche verzweifelt, dass beim Audruck eines Berichtes in jeder Kopfzeile der Wert aus der Zelle "J11" steht. Das funktioniert auch soweit, jedoch wird der Ausdruck dadurch unglaublich verlangsamt.
PS: das
Sub Kopfzeile ist nur ein kleiner Teil der abgearbeiteten Module, führt jedoch zu einer abnormen Verlangsamung des gesamten Vorganges
Wer kann helfen?
Danke Joerg
' Daten in Kopfzeile eintragen
Sub Kopfzeile()
nam = ActiveWorkbook.Name
Workbooks(nam).Activate
With ActiveSheet.PageSetup
.LeftHeader = Range("J11").Value
End With
End Sub