Hallo zusammen,
kann mir jemand helfen? Ich habe in Excel 2016 folgendes vor:
=WENN(A1=1;test();"")
mit folgendem Quelltext:
Private Function test()
Makro2
End Function
Sub Makro2()
MsgBox ("Hallo")
Range("O14").Select
ActiveCell.FormulaR1C1 = "test"
End Sub
Funktioniert soweit, jedoch wird nur "MsgBox ("Hallo")" ausgeführt, der Rest nicht.
Wenn ich den Code direkt in der Entwicklungsumgebung ausführe, klappt es allerdings.
Was mache ich falsch, bzw. warum wird die Zell O14 nicht mit "test" gefüllt, wenn ich in die Zelle A1 eine "1" eingebe?
Vielen Dank im Voraus
RaplH
|