Wait - was mache ich falsch ... ?!?!
14.09.2003 07:31:22
Peter
ich kriege eine Krise ich weiß nicht was ich hier falsch mache.
Habe gestern Nachmittag im Forum einige gute Hinweise bekommen und mir dann
diesen Makro zusammen gebaut.
Beim öffnen der Datei soll Hinweis mit True eingeblendet werden, 5 Sekunden zu sehen sein, und dann einfach
wieder verschwinden.
Beim öffnen der Datei passiert nur das eine es dauert die 5 Sekunden bis man weiter arbeiten kann,
aber der Hinweis erscheint nicht.
Wenn ich den Makro mit F8 teste arbeitet er genauso wie es sein soll, nur nicht beim öffnen der Datei.
Private Sub Workbook_Open()
ActiveSheet.Unprotect Password:="test"
ActiveSheet.EnableAutoFilter = True
If Date > Sheets("Liste").Range("S3") And Date < Sheets("Liste").Range("T3") Then
ActiveSheet.Shapes("Hinweis").Visible = True
Application.Wait Now + TimeSerial(0, 0, 5)
ActiveSheet.Shapes("Hinweis").Visible = False
End If
ActiveSheet.Protect Password:="test", Contents:=True, userInterfaceOnly:=True
KontextmenüZurücksetzen
KontextmenüErgänzen
Menüleisten_ausschalten
KonTextMenu_aus
End Sub
Gruß Peter