Namen bestimmen

• 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

Excel-Beispiele zum Thema " Namen bestimmen"
Spaltennamen bestimmen	Über VBA Schriftgröße von Fußzeilen bestimmen
Nettoarbeitstage unter Urlaubsberücksichtigung bestimmen	Position an Bandlaufwerk bestimmen