Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Caption der aktiven UserForm abfragen
07.08.2008 17:06:21
Martin
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!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Caption der aktiven UserForm abfragen
07.08.2008 17:17:34
Rudi
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?

AW: Caption der aktiven UserForm abfragen
07.08.2008 17:35:43
Martin
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
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige