...und was soll das?
Ich möchte fürs musizieren Akkorde in einer Liste untereinander schreiben, die dann nach Makro-start in einer bestimmten Geschwindigkeit farblich hervorgehoben werden.
Sub Akkord()
iRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
For i = 2 To iRow
Cells(i - 1, 1).Interior.ColorIndex = 0
Cells(i, 1).Interior.ColorIndex = 3
Application.Wait Now + TimeSerial(0, 0, 1)
Next i
Cells(iRow, 1).Interior.ColorIndex = 0
End Sub
Sub Akkord()
iRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
For i = 2 To iRow
Cells(i - 1, 1).Interior.ColorIndex = 0
Cells(i, 1).Interior.ColorIndex = 3
T = Timer + (60 / 85)
Do While Timer
Gruß Daniel