Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Farben aus Zelle nehmen

Farben aus Zelle nehmen
02.11.2018 17:46:40
Markus
Hi zusammen
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 Hilfe
Beste Grüsse us de Schwiiz
Markus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farben aus Zelle nehmen
02.11.2018 18:01:00
onur
https://docs.microsoft.com/de-de/office/vba/language/reference/user-interface-help/enum-statement
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige