Ich habe schon viel herumgesucht, aber nicht die Lösung gefunden, die ich mir vorstelle. Entweder habe ich mich verrannt, und suche immer nach der falschen Lösung, oder es geht in einer
Function nicht.
Ich bin für jeden Tip Dankbar.
ExcelBernd
Function MeineFunktion(Zahl1 As Integer, Zahl2 As Integer, Vergleich1 As Integer) As Integer
Row = 12
Col = 33
MeineFunktion = Zahl1 * Zahl2
If (MeineFunktion > Vergleich1) Then
' Cells(Row, Col).Interior.ColorIndex = 3 ' tut nicht <------
Else
' Cells(Row, Col).Interior.ColorIndex = xlNone
End If
End Function