VBA Controls() auf MultiPage anwenden
23.02.2017 11:11:30
Henning
folgendes Problem, bei dem Ihr mir hoffentlich helfen könnt:
Ich habe eine Userform mit einer Multipage (streng genommen sogar zwei), und je nachdem, ob ein bestimmter Haken in einer CheckBox gesetzt ist, soll eine Seite ein- oder ausgeblendet werden. Realisiert werden kann das Ganze über in diesem Fall
MultiPage2.Pages(0).Enabled = False
Ich würde das ganze aber gerne flexibel über eine Funktion machen, der ich als Argument den Namen der einzublendenden Page als String übergebe.
Privat Sub aktivieren(s as String)
Controls(s).Enabled = False
End Sub
Das ganze natürlich noch mit Fehler/If-Abfrage, aber vom Grundprinzip her so.
Schreibe ich nun in s
s="MultiPage2.Pages(0)"
kommt der Fehler "Das angegebene Objekt konnte nicht gefunden werden". Schreibe ich in s hingegen nur
s="MultiPage2"
und arbeite statt ".enabled" mit ".visible", funktioniert alles. Die Control()-Funktion scheint also nicht auf zwei Staffelungen reagieren zu können. Gibt es da von Euch aus vielleicht irgendwelche Ideen, wie man das ganze realisieren könnte?Herzlichen Dank und beste Grüße,
Henning
Anzeige