Makro Call StartZelle
25.04.2022 19:24:56
mike49
In meiner Arbeitsmappe habe ich diese beiden Makros stehen, die auch funktionieren:
Option Explicit
Private Sub Workbook_Open()
Call StartZelle
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ScreenUpdating = False
ActiveSheet.Unprotect
If ActiveSheet.Name = "Übersicht" Then
Sheets("Übersicht").Select
Range("B6:AF42").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("AH5").Select
ActiveSheet.Protect
End If
Application.EnableEvents = True
End Sub
Nach dem Ausdruck des Blatts "Übersicht" muss ich über Alt+F8 das Makro 'StartZelle' anstoßen, damit mein Fadenkreuz wieder erscheint.Könnte man dies in die Prozedur 'BeforePrint' integrieren?
Gruß
mike49