makrostart

Sub Blinken()
blinky = Now + TimeValue("00:00:01")
With Range("A2")
If .Interior.ColorIndex = 3 Then .Interior.ColorIndex = 2 Else .Interior.ColorIndex = 3
End With
Application.OnTime blinky, "Blinken"
End Sub

Sub EndBlinken()
Application.OnTime blinky, "Blinken", schedule:=False
End Sub

Sub zellen_verstecken()
'Quelle: Rainberg
Dim rngUnsichtbar As Range
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$39" 'Anpassen
Set rngUnsichtbar = Range("A2") 'Anpassen
rngUnsichtbar.NumberFormat = ";;;"
ActiveWindow.SelectedSheets.PrintOut
rngUnsichtbar.NumberFormat = "General"
Range("A1").Select
End Sub