AW: Application.Volatile
24.09.2003 08:14:46
vasko
Hallo Ingo
Danke für die rasche Antwort.
Ich habe "Application.Volatile" meiner nachstehenden Funktion angefügt leider ohne Erfolg.
Nach ausführen der Funtion bekomme ich die Fehlermeldung "Fehler beim Kompilieren, Ausserhalb der Prozedur ungültig.
Application.Volatile
Function Farbe(Bereich As Range, Farbwahl As Byte)
Dim c As Range
If Farbwahl = 35 Then ' Pastellgrün
For Each c In Bereich
If c.Interior.ColorIndex = Farbwahl Then Farbe = Farbe + c.Value
Next c
End If
End Function
MfG Vasko