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?"