Ich möchte die Farbe Schwarz in die Zelle H2 schreiben und nicht im Code
Set oCat = oStore.Categories.Add(Range("g2").Value, enuCatColor.Schwarz
, so dass ich die Farben einfacher wechseln kann. Leider bin ich mit meinen Versuchen immer wieder gescheitert.
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
Ich Danke Euch schon im Voraus für Eure HilfeBeste Grüsse us de Schwiiz
Markus