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