Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Caption der aktiven UserForm abfragen

Betrifft: Caption der aktiven UserForm abfragen von: Martin Springer
Geschrieben am: 07.08.2008 17:06:21

Hallo liebe Excelianer,

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!

  

Betrifft: AW: Caption der aktiven UserForm abfragen von: Rudi Maintaire
Geschrieben am: 07.08.2008 17:17:34

Hallo,
übergib die Userform als Objekt an die Prozedur.

Sub AK(myUF as Userform)  'für Userform "Teilnehmer erfassen"
    If myUF.TextBox3.Value = "" Then Exit Sub
    If myUF.OptionButton1 = False Then myUF.OptionButton2 = True
    myUF.ComboBox5.ListIndex = Altersklasse(myUF.TextBox3.Value)
End Sub



in dem aufrufenden Code

Call AK(Me)

Gruß
Rudi

Warum überhaupt 2 UFs, wenn sie gleich sind?


  

Betrifft: AW: Caption der aktiven UserForm abfragen von: Martin Springer
Geschrieben am: 07.08.2008 17:35:43

Hallo Rudi,

vielen Dank für Deine Hilfe, es funktioniert. Die beiden UserForms sind nicht identisch. Nur die Controls der beiden UserForms für die Altersklassenberechnung (für Sportveranstaltungen) sind identisch. Auf "Me" bin ich auch schon gekommen, allerdings wusste ich nicht wie die UserForm als Objekt an Modul1 übergeben werden kann. Vielen Dank noch einmal!

Martin


 

Beiträge aus den Excel-Beispielen zum Thema "Caption der aktiven UserForm abfragen"