Richtige Startreihenfolge
02.08.2007 18:00:00
Heinz
Habe hier mehrere Aktionen in "Diese Arbeitsmappe"
Nur die richtige Reihenfolge beim öffnen stimmt nicht.
Ich möchte beim "Worbook_Open() das die Zelle in " Haupt" A1 gleich zu Blinken anfängt.
Das geht momentan nur über Alt+F8
Könnte mir Bitte dabei jemand helfen.
Danke & Gruß Heinz
'Diese Arbeitsmappe
Private Sub Workbook_Open()
If ThisWorkbook.Worksheets("Haupt").Range("A1") = 10 Then ersteFarbe
nachricht = MsgBox(" Bist Du ein Fan ?", vbYesNo)
If nachricht = vbYes Then
MsgBox "Du bist berechtigt dieses Pogramm zu nützen !!!!"
End If
If nachricht = vbNo Then
MsgBox "Tut mir leid dieses Pogramm ist N U R für Fans - Tschüss !!"
ThisWorkbook.Close False
End If
Sheets("Haupt").Activate
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ende
End Sub
'in die Tabelle
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ende
End Sub
Private Sub Workbook_Open()
If ThisWorkbook.Worksheets("Haupt").Range("A1") = 10 Then ersteFarbe
End Sub
'In ein Modul
Option Explicit
Public ET As Variant
Sub ersteFarbe()
ThisWorkbook.Worksheets("Haupt").Range("A1").Interior.ColorIndex = 3
ET = Now + TimeValue("00:00:03")
Application.OnTime ET, "zweiteFarbe"
End Sub
Sub zweiteFarbe()
ThisWorkbook.Worksheets("Haupt").Range("A1").Interior.ColorIndex = 33
ET = Now + TimeValue("00:00:03")
Application.OnTime ET, "ersteFarbe"
End Sub
Sub Ende()
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="ErsteFarbe", Schedule:=False
Application.OnTime EarliestTime:=ET, Procedure:="zweiteFarbe", Schedule:=False
ET = ""
End Sub