Zahlen per Makro durch 1000 teilen
04.05.2006 13:53:28
Andreas
ich habe mir ein Makro aufgezeichnet, was mir die Zahl in einer Zelle durch 1000 teilen soll und anschließend soll der Cursor auf die nächste Zeile springen, damit ich falls gewünscht, die nächste Zahl diviedieren lassen kann. Das funktionierte aber nicht richtig, denn es hat mir die erste Zahl als festen Wert genommen und somit kam in jeder anderen Zelle dann das gleiche Ergebnis wie in der ersten Zelle.
Dann habe ich versucht eine Variable zu deklarieren, damit der Wert der Zelle an die Variable übergeben wird. Das funktioniert aber auch noch nicht.
Mein Quelltext sieht folgendermaßen aus:
Sub Makro4()
Dim a As Long
ActiveCell.Value = a
ActiveCell.FormulaR1C1 = "=" & a & "/1000"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Kann mir jemand helfen?
Gruss
Andreas