Druckbereiche in einem Workbook mit VBA markieren
08.08.2006 16:57:05
Peter
Ich möchte mit folgendem Code den Druckbereich in jedem Worksheet markieren. So funktioniert es jedoch nicht, wohl weil der Name (Druckbereich, resp. Print_Area) in jeder Tabelle derselbe ist und daher wohl immer die gleiche Tabelle markiert wird.
Wie kann man sich da behelfen?
Danke für Feedback
Peter
Option Explicit
Sub dber()
' Tastenkombination: Strg+d
' Druckbereich in allen Worksheets des aktiven Workbooks
' markieren
Dim objWorksheet As Worksheet, objsheet As Object
Set objsheet = ActiveSheet
Application.ScreenUpdating = False
For Each objWorksheet In ActiveWorkbook.Worksheets
Range("print_area").Select
Next
objsheet.Activate
Application.ScreenUpdating = True
End Sub