makrostart
Hans-Gerd
ich möchte gerne, dass das Makro "blinken" mit dem Öffnen der Datei startet.
Was muss ich machen?
Manuell klappt es.
Hier das Makro:
Option Explicit
Dim blinky As Date
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
mfg
HGS