Farben aus Zelle nehmen

Set oCat = oStore.Categories.Add(Range("g2").Value, enuCatColor.Schwarz

Dim oOutlookApp As Object
Dim oAufgabe As Object
Dim oStore As Object, oCat As Object
Set oOutlookApp = CreateObject("Outlook.Application")
Set oStore = oOutlookApp.Session.Stores.Item(Range("C1").Value)
On Error GoTo Fehler:
'Kategorie erstellen'
If Range("g2").Value  "" Then
For Each oCat In oStore.Categories
If oCat.Name = Range("g2").Value Then
Exit For
End If
Next
If oCat Is Nothing Then
Set oCat = oStore.Categories.Add(Range("g2").Value, enuCatColor.Schwarz)
End If
End If
End Sub