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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen