Caption der aktiven UserForm abfragen
07.08.2008 17:06:21
Martin
besteht die Möglichkeit aus einem VBA-Modul heraus die aktive UserForm abzufragen? Bislang verwende ich folgende zwei Makros für zwei verschiedene UserFormen, die ich gerne zu einem Makro vereinen würde, weil deren Inhalt gleich ist:
Sub AK() 'für Userform "Teilnehmer erfassen"
If UserForm1.TextBox3.Value = "" Then Exit Sub
If UserForm1.OptionButton1 = False Then UserForm1.OptionButton2 = True
UserForm1.ComboBox5.ListIndex = Altersklasse(UserForm1.TextBox3.Value)
End Sub
Sub ak2() 'für Userform "Teilnehmer bearbeiten"
If UserForm2.TextBox3.Value = "" Then Exit Sub
If UserForm2.OptionButton1 = False Then UserForm2.OptionButton2 = True
UserForm2.ComboBox5.ListIndex = Altersklasse(UserForm2.TextBox3.Value)
End Sub
Vielen Dank im Voraus!
Anzeige