Macros und Tabellenfunktionen
iavor
habe ein macro aufgezeichnet:
Sub colorMacro()
Worksheets("Tabelle1").Range("C1").Interior.ColorIndex = 46
Worksheets("Tabelle1").Range("C1").Interior.Pattern = xlSolid
End Sub
Dazu habe ich eine Funktion geschrieben:
Function color2() As String
colorMacro
color2 = "done"
End Function
Wenn ich das macro ausführe, wird C1 rot gefärbt - wie erwartet.
Wenn ich in C3 die Formel eingebe:
=color2()
wird zwar "done" geschrieben, aber C1 färbt sich nicht rot.
Das debuggen im VBA ergab, dass der Wert im .Interior.ColorIndex sich nicht ändert, obwohl die Anweisung ausgeführt wurde.
Kann jemand das erklären?
Gruss
iavor
Anzeige