AW: ico in Userform
12.09.2003 09:41:46
EL
Hallo Thomas!
Genau so was wünshte ich.
Ich habe das ganze alle funktionen in mehrere userforms gebaut und arbeitsmappe sollte Mann nicht sehen .
Ich habe in eine Neu Arbeitsmappe dein Beispiel kopiert und UserForm(s) mit einem CommandButton.und in einem Klassenmodul Klasse1 das erste teil kopiert.
Nun es funktioniert nicht.
Option Explicit
Dim UF As New CUserForm
'__________________ '
Private Sub CommandButton1_Click()
UF.CloseForm
End Sub
Private Sub UserForm_Activate()
UF.Maximize ' UserForm maximieren
'UF.Minimize ' UserForm minimieren
UF.Caption = "Unsere kleine Form"
End Sub
Private Sub UserForm_Initialize()
With UF
.MaxButton = True
.MinButton = True
.BorderStyle = xlFest
.Create Me
End With
End Sub
ich bekomme ein Fehlermeldung:
UF As New CUserForm
Fehler beim kompilieren:Benutzerdefinierter Typ nicht defiert.
ich habe folgendes getan:
Option Explicit
Dim UF As userform1
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
' UF.Maximize ' UserForm maximieren
'UF.Minimize ' UserForm minimieren
UF.Caption = "Unsere kleine Form"
End Sub
Private Sub UserForm_Initialize()
With UF
.MaxButton = True
.MinButton = True
.BorderStyle = xlFest
.Create Me
End With
End Sub
nun .MaxButton = True ergibt Fehler Meldunf:
Methode oder Datenobjekt nicht gefunden.
und wann ich das deaktieviere dann habe nicths news arreicht.
Gruß
EL