Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Fehler in der Syntax oder woran liegt`s?
31.03.2005 13:50:23
Peter
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.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler in der Syntax oder woran liegt`s?
31.03.2005 13:58:48
Tobias
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
AW: Fehler in der Syntax oder woran liegt`s?
31.03.2005 14:26:56
Peter
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.
Anzeige
hier is leer, hab nur vergessen: noch offen
31.03.2005 14:28:17
Peter
.
AW: hier is leer, hab nur vergessen: noch offen
31.03.2005 14:46:47
Bert
Controls("CommandButton" & n).ForeColor = ActiveWorkbook.Colors(2)
mfg Bert
Danke Bert bestens, läuft......o.T.
31.03.2005 15:06:02
Peter
.

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige