Dieser Teil meines Macros schreibt ein “X” in die jeweilige Zelle:
If Range("I36") = 3 Then
Windows("Monatsbilanz.xls").Activate
Selection.Offset(0, -1).Select
ActiveCell.FormulaR1C1 = "X"
Selection.Offset(0, 1).Select
Windows("leer Rechnung.xls").Activate
End If

Was muss ich schreiben, das es jeweils 1,2,3 usw. einträgt.
Also immer eins addiert ?
Vielen Dank