Fehler in der Syntax oder woran liegt`s?

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

Betrifft: Fehler in der Syntax oder woran liegt`s? von: Peter S.
Geschrieben am: 31.03.2005 13:50:23

Hallo Ihr Lieben,
ich habe in der UserForm_Initilize den nachfolgenden Code reingeschrieben, jedoch bringt er die Fehlermeldung: Objekt nicht gefunden?....wer weiss da Rat?

For n = 1 To 8
Controls(frmVerwaltung.CommandButton & n).ForeColor = ThisWorkbook.Colors(2)
Controls(frmVerwaltung.CommandButton & n).BackColor = ThisWorkbook.Colors(1)
Next n

Danke für Eure Hilfe
Peter S.

Bild


Betrifft: AW: Fehler in der Syntax oder woran liegt`s? von: Tobias Marx
Geschrieben am: 31.03.2005 13:58:48

Servus!

Ungetestet:

For n = 1 To 8
  frmVerwaltung.CommandButton & n & .ForeColor = ActiveWorkbook.Colors(2)
  frmVerwaltung.CommandButton & n & .BackColor = ActiveWorkbook.Colors(1)
Next n

Womit evtl. noch Probleme auftreten koennten, waere das & n & - musst du aber schauen, ich kanns hier ned testen.

Gruss

Tobias


Bild


Betrifft: AW: Fehler in der Syntax oder woran liegt`s? von: Peter S.
Geschrieben am: 31.03.2005 14:26:56

Hallo Tobias,
zunächst mal Danke, aber leider funzt Deine Lösung auch net; im Moment hab ich es so drin stehen, dies funktioniert, aber is irgendwie unbefriedigend weil es zu umständlich ist. Hat jemand noch nen Vorschlag?

CommandButton1.ForeColor = ActiveWorkbook.Colors(2)
CommandButton1.BackColor = ActiveWorkbook.Colors(1)
CommandButton2.ForeColor = ActiveWorkbook.Colors(2)
CommandButton2.BackColor = ActiveWorkbook.Colors(1)
CommandButton3.ForeColor = ActiveWorkbook.Colors(2)
CommandButton3.BackColor = ActiveWorkbook.Colors(1)
CommandButton4.ForeColor = ActiveWorkbook.Colors(2)
CommandButton4.BackColor = ActiveWorkbook.Colors(1)
CommandButton5.ForeColor = ActiveWorkbook.Colors(2)
CommandButton5.BackColor = ActiveWorkbook.Colors(1)
CommandButton6.ForeColor = ActiveWorkbook.Colors(2)
CommandButton6.BackColor = ActiveWorkbook.Colors(1)
CommandButton7.ForeColor = ActiveWorkbook.Colors(2)
CommandButton7.BackColor = ActiveWorkbook.Colors(1)
CommandButton8.ForeColor = ActiveWorkbook.Colors(2)
CommandButton8.BackColor = ActiveWorkbook.Colors(1)

Vielen Dank
Peter S.


Bild


Betrifft: hier is leer, hab nur vergessen: noch offen von: Peter S.
Geschrieben am: 31.03.2005 14:28:17

.


Bild


Betrifft: AW: hier is leer, hab nur vergessen: noch offen von: Bert
Geschrieben am: 31.03.2005 14:46:47

Controls("CommandButton" & n).ForeColor = ActiveWorkbook.Colors(2)

mfg Bert


Bild


Betrifft: Danke Bert bestens, läuft......o.T. von: Peter S.
Geschrieben am: 31.03.2005 15:06:02

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehler in der Syntax oder woran liegts?"