Herbers Excel-Forum - das Archiv

Namen bestimmen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
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