Sleep befehel und Arbeiten in Excel
19.03.2005 00:41:12
chris
habe mal eine fun frage.Habe mir diesen Code gebastelt ist es möglich in so ablaufen zu lassen das er Excel sogut wie gar nicht stört ?
Bei diesem Code jetzt kommt es zu extramen verzögerungen bei der Arbeit in Excel.
Was ich möchte ist das die Farben sich dauernd ändern aber ich nebenbei trotzdem gut in Excel Arbeiten kann.
Für einen Tipp wäre ich euch dankbar.
Besten grüße Christian
Declare
Sub Sleep Lib "kernel32" (ByVal milli As Long)
Sub Makro1()
DoEvents
For x = 1 To 3
DoEvents
ActiveWorkbook.Sheets("Tabelle1").Tab.ColorIndex = 4
DoEvents
Sleep 500
DoEvents
ActiveWorkbook.Sheets("Tabelle1").Tab.ColorIndex = -4142
DoEvents
Sleep 500
DoEvents
ActiveWorkbook.Sheets("Tabelle2").Tab.ColorIndex = 3
DoEvents
Sleep 500
DoEvents
ActiveWorkbook.Sheets("Tabelle2").Tab.ColorIndex = -4142
DoEvents
Sleep 500
DoEvents
ActiveWorkbook.Sheets("Tabelle3").Tab.ColorIndex = 4
DoEvents
Sleep 500
DoEvents
ActiveWorkbook.Sheets("Tabelle3").Tab.ColorIndex = -4142
DoEvents
Sleep 500
DoEvents
ActiveWorkbook.Sheets("Tabelle4").Tab.ColorIndex = 6
DoEvents
Sleep 500
DoEvents
ActiveWorkbook.Sheets("Tabelle4").Tab.ColorIndex = -4142
DoEvents
Sleep 500
DoEvents
ActiveWorkbook.Sheets("Tabelle5").Tab.ColorIndex = 5
DoEvents
Sleep 500
DoEvents
ActiveWorkbook.Sheets("Tabelle5").Tab.ColorIndex = -4142
DoEvents
Sleep 500
DoEvents
Next
End Sub