Herbers Excel-Forum - das Archiv
Namen bestimmen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
- Namen bestimmen von Tatjana vom 08.12.2003 13:50:59
- Caption - von Günther Abel am 08.12.2003 14:26:20
- AW: Caption - von Tatjana am 08.12.2003 15:08:25
- Huch... - von Günther Abel am 08.12.2003 21:24:37
Betrifft: Namen bestimmen
von: Tatjana
Geschrieben am: 08.12.2003 13:50:59
Hallo ihr,
ich stehe vor einem kleinem problem. Ich möchte gern den Namen einer Maske vergleichen können, wenn ich diesen in einer Funktion mit frm as Userform initialisiere.
Also dann Quasi so:
Function Test(frm as Userform)
If frm = “Userform1” then
Msgbox (frm)
End if
End Function
Also brauche den Namen zum Vergleichen .. geht das irgendwie ?
Vielen Dank !
Betrifft: Caption
von: Günther Abel
Geschrieben am: 08.12.2003 14:26:20
Hi Tatjana,
If frm.caption = “Userform1” then
Msgbox (frm.caption)
End if
Viel Spass
Günther
Betrifft: AW: Caption
von: Tatjana
Geschrieben am: 08.12.2003 15:08:25
Hallo Günther,
das geht leider nicht. Was mache ich falsche ? Da frm as Userform initialisiert wurde, geht das ganze mit .Caption leider nicht.
Betrifft: Huch...
von: Günther Abel
Geschrieben am: 08.12.2003 21:24:37
welch ungetester Leichtsinn von mir, aber:
https://www.herber.de/forum/archiv/72to76/t74034.htm
Hans hat da mal etwas gebastelt, es werden zwar
neben den Forms auch andere gleichrangige Objekte aufgelistet -
das ist dir aber höchstwahrscheinlich wurscht.
Sub ReadFormNames()
Dim vbc 'As VBComponent
Dim frm As Object
Dim strForm As String
Dim bln As Boolean
strForm = "UserForm2"
For Each vbc In ActiveWorkbook.VBProject.VBComponents
Debug.Print vbc.Name
If vbc.Name = strForm Then
bln = True
End If
Next vbc
If bln Then Call Aufruf
End Sub
Sub Aufruf()
UserForm2.Show
End Sub
Viel Spass
Günther