Objekte mit verschieden Eigenschaften

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Objekte mit verschieden Eigenschaften von: Christian
Geschrieben am: 06.02.2005 07:48:09

Hallo zusammen,

mein VB lassen noch etwas zu wünschen übrig. Habe folgendes Problem:

Ein Object wird mit seinen Eigenschaften definiert. Wenn das Objekt sich verändert, wird eine Ereignisroutine aufgerufen. Das funktioniert soweit noch.

So nun möchte mehrere Objekte (gleiche Bezeichnung) aber mit verschiedenen Eigenschaften definieren, bei den jeweils eine DIE Ereignisroutine aufgerufen wird, wenn eine Veränderung auftritt.

Wie mach ich sowas?

Sag schon mal danke

Gr christian

Bild


Betrifft: AW: Objekte mit verschieden Eigenschaften von: andre
Geschrieben am: 06.02.2005 08:01:36

Hallo Christian,
Du tust am besten vom jeweiligen Ereignis des Objektes ein Sub aufrufen. Da kannst Du dann bei einem Objekt das Click-Ereignis nehmen, beim nächstem LostFocus oder was immer es gibt und es läuft dann das gleiche Sub.


Bild


Betrifft: AW: Objekte mit verschieden Eigenschaften von: Christian
Geschrieben am: 06.02.2005 08:07:47

Fast. Wie gehts, wenn es immer das gleiche Ergeignis ist.
Beispiel
Objekt1: eigenschaft grün
Objekt2: eigenschaft gelb

die objekte haben immer den gleichen bezeichner, jedoch verschiedene ausprägungen

jetzt wenn sich eins ändert, soll die eventroutine aufgerufen werden

gr christian


Bild


Betrifft: AW: Objekte mit verschieden Eigenschaften von: andre
Geschrieben am: 06.02.2005 08:28:01

Hallo Christian,
wenn es um Änderungen geht dann kommt normalerweise das Change-Ereignis in Frage. Das gibt es zum einen nur bei Objekten, wo sich z.B. Werte ändern können, und es reagiert allerdings auch nur auf diese Änderungen. Du kannst z.B. die Farbe ändern, wenn sich der Wert ändert, aber nicht umgedreht.
Du kannst nur indirekt auf solche Änderungen reagieren, wenn andere Ereignisse eintreten. Z.B. könntest Du bei einer Änderung auf dem Tabellenblatt prüfen, ob irgendwo eine andere Farbe drin ist bzw. bei einer bestimmten Farbe etwas auslösen.
z.B. bei Änderung auf dem Blatt - CodeModul vom Tabellenblatt:

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "Hintergrundfarbe: " & Range("A1").Interior.ColorIndex
MsgBox "Füllfarbe Rechteck 1: " & ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.SchemeColor
End Sub



Bild


Betrifft: AW: Objekte mit verschieden Eigenschaften von: Christian
Geschrieben am: 06.02.2005 08:32:12

danke für die schnelle hilfe.

grüsse vom trüben bodensee
christian


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Objekte mit verschieden Eigenschaften"