2 Makros beim start ausführen
07.05.2020 16:08:23
Werner
Habe in einer Excel-Datei folgende 2 Makros:
-----------------------------------------------------------------------------------------------------------------------------
Sub Auto_open()
Dim a As String
a = MsgBox("Am Jahreswechsel monatlichen Betrag und Vers.Nr. anpassen!", vbOKOnly)
End Sub
------------------------------------------------------------------------------------------------------------------------------
Public ET As Variant
Sub ersteFarbe()
[A49].Interior.ColorIndex = 25
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "zweiteFarbe"
End Sub
Sub zweiteFarbe()
[A49].Interior.ColorIndex = 15
ET = Now + TimeValue("00:00:01")
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
-------------------------------------------------------------------------------------------------------------------------Hinweis:
Nun möchte ich, dass beim öffnen die 2 Makros automatisch gestartet werden, wobei das erste Makro mit ok(anklicken) beendet wird.
Wenn möglich, bitte ein komplett neues Makro, da ich in der Programierung nicht so gewieft bin.
Vielen Dank für eure Mühen.
Werner