Thema: UserForm Min u. Max Button
Habe eine beispielsdatei mit code von Thomas risi gefunden. leider bekomme ich die meldung " Fehler beim kompilieren, Erwarte bezeichner
kennt jemand das problem und wie kann ich das problem lösen?
danke
achim h.
Sub Hilfe()
Dim Txt$, i%, Loesung$
Txt = "087111032105115116032100101114032067111100101063"
For i = 1 To Len(Txt) Step 3
Loesung = Loesung & Chr(Mid(Txt, i, 3))
Next
MsgBox Loesung
End Sub
Im Klassenmodul CUserForm
'Public Enum BorderStyles
' xlFest = 0
' xlÄnderbar = 1
'End Enum
'Public Property Let BorderStyle(Style As BorderStyles)
' Select Case Style
' Case 0: Border = 0
' Case 1: Border = WS_SIZEBOX
' End Select
'End Property
in UserForm1 Code:
Private Sub UserForm_Initialize()
With UF
.MaxButton = True
.MinButton = True
' .BorderStyle = xlÄnderbar
.Create UserForm1
End With
End Sub
Gruss Hansueli