Function mit Makro Call
05.07.2015 20:36:31
Burghard
kann ich in der unteren VBA-Function auch noch am Ende ein anderes Makro aufrufen oder geht dies gar nicht?
Public Function ohne_strichB(Bereich As Range)
Dim rngC As Range, dblZ As Double
Application.Volatile
For Each rngC In Bereich
If rngC.Font.Strikethrough = False And rngC.Font.ColorIndex = 5 Then
dblZ = dblZ + rngC.Value
End If
Next
ohne_strichB = dblZ
'einfach aufrufen mit
'=ohne_strichB($H$10:$H$100)
End Function
Grüße Burghard