Namen bestimmen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm MsgBox
Bild

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 !
Bild


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


Bild


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.


Bild


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


Bild

Beiträge aus den Excel-Beispielen zum Thema " Namen bestimmen"