Private Sub ErgebnisAuswerten()
 
Dim cell As Range
Set cell = Sheets("Tabelle1").Range("A1")
 
MsgBox (IsDigital(cell))
 
End Sub
 
Private Function IsDigital(ByVal cell As Range) As Boolean
 
If cell.Interior.ColorIndex = 35 Then
IsDigital = True
Else
IsDigital = False
End If
 
End Function

EALA FREYA FRESENA