AW: eigene Funktion in Excel online
30.07.2018 10:15:09
Rolf
Kann mir dann jemand sagen wie es in JS dann aussehen muss
Public Function CountColor(rng As Range, icolor As Integer)
Dim rngAct As Range
Dim iCount As Integer
Application.Volatile
For Each rngAct In rng.Cells
If rngAct = "" And rngAct.Interior.ColorIndex = icolor Then
iCount = iCount + 1
End If
Next rngAct
CountColor = iCount
End Function
Public Function Color1(rng As Range, icolor As Integer, rngDatum As Range)
Dim rngAct As Range
Dim iCount As Integer
Application.Volatile
For Each rngAct In rng.Cells
If rngAct = "" And rngAct.Interior.ColorIndex = icolor And rngAct.Offset(rngDatum.Row - _
rngAct.Row, 0).Value
Public Function Color2(rng As Range, icolor As Integer, rngDatum As Range)
Dim rngAct As Range
Dim iCount As Integer
Application.Volatile
For Each rngAct In rng.Cells
If rngAct = "" And rngAct.Interior.ColorIndex = icolor And rngAct.Offset(rngDatum.Row - _
rngAct.Row, 0).Value > Date Then
iCount = iCount + 1
End If
Next rngAct
Color2 = iCount
End Function