Schleife mit Userform-Objekt
26.01.2006 20:03:26
et999
nach langem hin- und herprobieren hab' ich mich doch entschlossen das Forum um Hilfe zu bitten:
Ich habe mehrere Userforms, die Reporte1, Reporte2, usw. heißen.
Ich formatiere die UF und die Elemente darin mit diesem Makro:
Reporte1.BackColor = RGB(255, 204, 0)
For Each Objekt In Reporte1.Controls
Select Case Left(Objekt.Name, 3)
Case "Com"
Objekt.BackColor = RGB(212, 5, 17)
Objekt.ForeColor = RGB(255, 204, 0)
Case "SCH"
Objekt.BackColor = RGB(212, 5, 17)
Objekt.ForeColor = RGB(255, 204, 0)
Case "Bla"
Objekt.BackColor = RGB(212, 5, 17)
Objekt.ForeColor = RGB(0, 0, 102)
End Select
Next
Reporte2.BackColor = RGB(255, 204, 0)
For Each ....
....
Next
Für Reporte2, Reporte3 usw. habe ich das kopiert und nur die Nummer geändert.
Das gefällt mir so nicht. Ich habe versucht auch die Reporte über eine Schleife laufen zu lassen. Also etwa:
Dim Reporte as Userform
For I=1 to 7
Reporte & I.BackColor = .......
Hab's in allen Variationen porbiert, aber der Ansatz ist wohl schon falsch.
Irgendwie bin ich mit den Objekten und ihren Möglichkeiten immer noch nicht richtig vertraut.
Es geht zwar auch ohne Schleife, aber ich hätte es halt gerne etwas "schöner".
Könnt Ihr mir helfen.
Schon mal Dank im voraus
Gruß
Uwe
(:o)