Makro Hilfe
13.11.2018 08:41:30
Tom
ich hab vom Lupo ( danke nochmal ) diesen Code bekommen:
Sub Anpassung()
b = [U1].CurrentRegion.Rows.Count
Range("U" & b + 1) = "=SUM(R1C21:R" & b & "C21)"
c = Range("U" & b + 1)
Range("U" & b + 1).ClearContents
a = [U1].CurrentRegion
For i = 2 To b
a(i, 1) = a(i, 1) * 450 / c
Next
[U1].CurrentRegion = a
End Sub
Leider macht er die Werte in der Tabelle R und als Ergebnis habe ich 449,09 gehabt. Leider muß genau 450 herauskommen und die Spalte U ändern.
Kann mir jemand Helfen ?
Danke euch
Liebe Grüße Tom
Anzeige