Controls(NameFrame): Objekt nicht gefunden
17.09.2013 14:01:48
Manuel
Als Forum-Neuling möchte ich gerne die Hilfe von euch in Anspruch nehmen.
Ich arbeite an einer UserForm mit diversen Controls, wie Checkboxen, Optionbuttons und ComboBoxen, die jeweils in Frames kategorisiert sind. Per CommandButton wird zwischen den Seiten einer Mulipage gewechselt. Vor dem Seitenwechsel führe ich eine Prüfung der Eingaben auf der aktuellen Seite durch. Eingabefehler werden durch rot einfärben des Frames 'frame' visualisiert. Ich habe ca. 10 verschiedene Frames mit etwa 15 zu prüfenden Eingaben und möchte nicht bei jedem Fehler den ganzen Code schreiben. Dafür habe ich eine Sub geschrieben, an die der Name des Frames (aus Eigenschaften (.Name)) übergeben wird.
Sub markFrame(frame As String)
'Rahmen rot färben. Wird von CheckEntry-funktionen verwendet
With Controls(frame)
.BorderColor = &HFF
.BorderStyle = fmBorderStyleSingle
.SpecialEffect = fmSpecialEffectFlat
End With
End Sub
Dies funktioniert teilweise. Wenn nicht wird gemeldet: 'Das angegebene Objekt konnte nicht gefunden werden.' Ich habe die Namen der Frames überprüft. Die stimmen überein; daran liegts also nicht.
Hat jemand eine Idee, woran das liegen könnte?
Grüsse Manuel