Hallo Fachleute
Ich habe eine Macro aufgenommen mit dem ich Felder farblich kennzeichnen will.
Die Kennzeichnung soll zur Erklärung dienen.
Die Felder sollen nacheinander gelb aufleuchten.
Der von mir aufgezeichnete Macro läuft auch, aber so schnell das man gar nicht sieht das die Felder gelb werden.
Meine Frage: Kann man das so eingeben das die Felder eine zeit lang gelb angezeigt werden evtl. 1 Sek. pro Feld?
Das Feld ist grau hinterlegt soll dann wenn es an der Reihe ist eine Sek. gelb leuchten dann wieder grau werden usw.
Kann mir hierbei jemand helfen
mfG Lisa
Range("L19:M19").Select
Selection.Interior.ColorIndex = 6
Range("L19:M19").Select
Selection.Interior.ColorIndex = 15
Range("P19:Q19").Select
Selection.Interior.ColorIndex = 6
Selection.Interior.ColorIndex = 15
Range("S19:T19").Select
Selection.Interior.ColorIndex = 6
Selection.Interior.ColorIndex = 15
Range("V19:W19").Select
Selection.Interior.ColorIndex = 6
Selection.Interior.ColorIndex = 15
ActiveWindow.SmallScroll ToRight:=14
Range("Y19:Z19").Select
Selection.Interior.ColorIndex = 6
Selection.Interior.ColorIndex = 15
Range("AB19:AC19").Select
Selection.Interior.ColorIndex = 6
Selection.Interior.ColorIndex = 15
Range("AE19:AF19").Select
Selection.Interior.ColorIndex = 6
Selection.Interior.ColorIndex = 15
Range("V19:W19").Select
Selection.Interior.ColorIndex = 6
Selection.Interior.ColorIndex = 15
Selection.Interior.ColorIndex = 6
Selection.Interior.ColorIndex = 15
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("D3").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Interior.ColorIndex = xlNone
End Sub