Hilfe beim abändern des Makros
20.01.2013 13:46:49
Josef_T
Ich möchte unten stehendes Makro so anpassen, dass mir immer das gerade Aktive Blatt ausgedruckt werden kann.
Habe das Programm von bislang einem Tabellenblatt Arbeitsplan auf 52 Blätter ausgeweitet..Tabellenblattname: "KW_1 bis KW_52".
Hier das Makro.
Private Sub Workbook_Open()
DoEvents
ThisWorkbook.Sheets("Arbeitsplan").Select
With Worksheets("Arbeitplan") 'Tabellennamen anpassen !!!
.Protect Password:="mango", UserInterfaceOnly:=True 'Kennwort anpassen !!!
.EnableOutlining = True
End With
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Arbeitsplan" Then
ActiveSheet.Unprotect Password:="mango"
Dim Zellem As Range
Application.ScreenUpdating = False ' Bildschirmausgaben abschalten
For Each Zellem In Range("Q11:Q54").Cells
If Zellem.Value
Next Zellem
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="mango"
End If
End Sub
Kann mir bitte beim ändern des Makros, jemand mit einen Tipp oder Lösung helfen?
Danke schon mal.
Gruß Josef