Hallo!
Und zwar habe ich hier einen sehr einfachen Code, der eine Division von 2 Zellen vornehmen soll deren Werte sich im Laufe der Zeit ändern. Speziell soll hier jedes mal wenn das Makro ausgeführt wird in Zelle J5 angefangen werden und das Ergebnis sowie ein Zeitstempel dahinter eingefügt werden. Soll das Makro nun erneut ausgeführt werden soll in der Zeile darunter geschrieben werden.
Das klappt soweit ganz gut, nur nicht wenn ich will dass immer in Zelle J5 angefangen wird "runter zu zählen"
Irgendwelche Tipps?
Sub prozentanteil()
Application.CutCopyMode = False
With Sheets("Anteil")
Range("J5").Select
ActiveCell.Select
ActiveCell.Value = Range("D5").Value / Range("E5").Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(-1, -1).Select
End With
End Sub
|