Bereiche löschen, außer ...
07.03.2005 10:16:55
Daniel
lasse mithilfe eines Makros, alle vorhandenen Bereiche löschen. Soweit so gut, aber nun habe ich noch einen Druckbereich und die sich wiederholende Kopfzeile festgelegt, die ich beide nicht löschen will.
Ein weiteres Problem ist das die Bereiche in allen offenen Arbeitsmappen gelöscht werden. Sollte nicht sein.
Ich bitte euch um euren Rat. Vielen Dank. MfG Daniel
Seither steht folgender Code:
Sub Namendefinition()
' Löschen der Namendefinitionen
Dim wb As Workbook
Dim n As Name
For Each wb In Workbooks
For Each n In wb.Names
n.Delete
Next
Next
' Festlegung des Druckbereichs und der Kopfzeile
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$6"
End With
ActiveSheet.PageSetup.PrintArea = "A1:Q170"
With ActiveSheet.PageSetup
.RightHeader = "" & Chr(10) & "&8Seite &P von &N& "
End With
End Sub