Formel mit variable

Computer: Software & Programmierung Visual Basic
#1

hallo!
hab da ein problem mit einer formel!

Dim Formel1 As String

for n = 1 to 10
Formel1 = „=(“ & „K“ & n & „/1,1)“
ActiveCell.FormulaR1C1Local = Formel1
… ’ hier wird dann zur nächsten zelle gesprungen und die die schleife fängt von vorn an
next for

Wenn ich dieses makro ausführe dann steht in der activen zelle zwar die Formel aber leider falsch: =(‚K1‘/1,1)

wie mach ich das richtig?
hab ich einen falschen datentyp bei formel gewählt??

bitte helft mir

danke & mfg
michael

#2

Wenn ich dieses makro ausführe dann steht in der activen zelle
zwar die Formel aber leider falsch: =(‚K1‘/1,1)

Hi Michael,

OOption Explicit
Sub tt()
Dim n As Integer
For n = 1 To 10
 ActiveCell.Offset(n - 1, 0).FormulaLocal = "=(K" & n & "/1,1)"
Next n
End Sub

Gruß
Reinhard

#3

danke für diese rasche antwort

warum offset?
kannst du mir diese funktion kurz erklären (die parameter?)
verstehe nicht warum 0

ActiveCell.Offset(n - 1, 0).FormulaLocal = „=(K“ & n &
„/1,1)“

mfg
michael

#4

hallo!
eine frage hätt ich dann noch

in einer zelle steht eine formel! wie kann ich jetzt nur das ergebnis dieser formel in der zelle in eine variable speichern?

ActiveCell.Offset(n, 0).FormulaR1C1Local = brutto20(n)

so hab ichs gemacht, aber da wird die formel mitgespeichert

danke & mfg
michael

#5

warum offset?
kannst du mir diese funktion kurz erklären (die parameter?)
verstehe nicht warum 0

Hi Michael,
gehe mit dem Cursor auf das Wort „Offset“, dann F1…
Gruß
Reinhard

#6

in einer zelle steht eine formel! wie kann ich jetzt nur das
ergebnis dieser formel in der zelle in eine variable
speichern?
ActiveCell.Offset(n, 0).FormulaR1C1Local = brutto20(n)

Hi Michael,
brutto20(n)=ActiveCell.Offset(n, 0)
Gruß
Reinhard

#7

danke!
funktioniert jetzt…

aber bei der zellenbefüllung hab ich noch ein problem:

For ü = 1 To 10
Range(„F“ & ü).Select
ActiveCell.Offset(ü, 0).FormulaLocal = „=(H“ & ü + 1 & „/1,1)“

Range(„I“ & ü).Select
ActiveCell.Offset(ü, 0).FormulaLocal = „=(K“ & ü + 1 & „/1,1)“
Next ü

da wir ab F2 bzw I2 nur jede 2. zelle beschrieben

also in F2 = H2/1,1
F4 = H3/1,1
F6 = H4/1,1

was hab ich da falsch gemacht?

mfg
michael

#8

danke, funktioniert bisschen :wink:
danke, hat sich erledigt

neues problem, neuer post