Hi Toni,

> erst einmal vielen Dank für Deinen prompten Beitrag. Ich denke, dass Dein
> Tipp für mich schon eine Erleichterung bei der Programmierung sein wird.
> Werde ihn daher in meinen Code einarbeiten.

schön, wenn es schon mal hilft. Ich kenne Dein Projekt nicht, aber vielleicht helfen Dir auch eigene Klassen etwas. Die kannst Du nach \"Einfügen > Klassenmodul\" selbst erstellen.

In einem normalen Modul schreibst Du dazu ganz oben:

Global DeinObjekt As New Klassenmodulname

Im Klassenmodul erstellst Du dann die gewünschten Eigenschaften zum Objekt:

Private Eigenschaftenvariable As Datentyp

Public Property Get Eigenschaft() As Datentyp: Eigenschaft = Eigenschaftenvariable: End Property
Public Property Let Eigenschaft(ByVal NewValue As Datentyp): Eigenschaftenvariable = NewValue: End Property

Ich arbeite arbeite zum Beispiel viel mit einem eigenen Programm-Objekt. Dazu füge ich ein Klassenmodul ein und benenne es clsProgramm.

Im allgemeinen Modul wird dann das Objekt erstellt:

Global Programm As New clsProgramm

Und im Klassenmodul bastle ich dann die Eigenschaften:

Private bolGespeichert As Boolean
Private strModus As String
...

Public Property Get Gespeichert() As Boolean: Gespeichert = bolGespeichert: End Property
Public Property Let Gespeichert(ByVal NewValue As Boolean): bolGespeichert = NewValue: End Property

Public Property Get Modus() As String: Modus = strModus: End Property
Public Property Let Modus(ByVal NewValue As String): strModus = NewValue: End Property
...

Und dann kann ich im Code an jeder Stelle beliebig schreiben:

Programm.Gespeichert = false
Programm.Gespeichert = true
Programm.Modus = \"Aufruf\"
...

Vielleicht könntest Du das mit Deiner Farbe auch so machen.

> Vielen Dank nochmals und einen schönen Tag wünscht Dir

Danke - das Gleiche zurück.