Hallo Leute,
habe ein wahrscheinlich für einen VBA-Kenner simples Problem.
Ich importiere Formeln aus einer Datenbank, die dann auf einem Excel-Sheet ausgeführt werden müssen (Excel macht nicht automatisch, sondern erst nachdem man in die jew. Zelle geklickt hat und Enter-Taste gedrückt hat).
Dafür habe ich dieses simple Sub geschrieben:
Sub Makro3()
x = 2
y = 8
Errors = ""
Do While Application.Cells(x, y).Value <> ""
Application.Cells(x, y).Select
Errors = Cells(x, y).Formula
ActiveCell.FormulaR1C1Local = _
"Errors"
x = x + 1
Loop
End Sub
Leider erkennt Excel den String nicht als Formel und schreibt mir in jeder Zelle das Wort "Errors" hin. Was ist da falsch? Ist das überhaupt machbar?
Danke im Voraus! Maxxas
|