Guten Morgen,
ich habe folgendes Makr, womit die UF nicht versetzt werden konnte.
Bei meiner alten Version funktioniert nur jetzt aktuell nicht, WAS kann das sein?
&ltpre&gt
Private Sub UserForm_Initialize()
Dim UFEingang
'--------------- für Bildschirmanpassung --------------------------------------
Dim hwndForm As Long, hwndMenu As Long
Dim intY, intLast, intNext As Integer
'------------------------------------------------------------------------------
On Error Resume Next
With UFEingang
StartUpPosition = 0
Top = 0
Left = 0
Height = GetDeviceCaps(GetDC(0&), 8)
Width = GetDeviceCaps(GetDC(0&), 10)
End With
ReleaseDC 0, GetDC(0&)
hwndForm = FindWindow(vbNullString, Me.Caption)
'-------- ab hier festgelegt, UF kann nicht verschoben werden --------------
If hwndForm &lt&gt 0 Then
hwndMenu = GetSystemMenu(hwndForm, 0)
If hwndMenu &lt&gt 0 Then DeleteMenu hwndMenu, &HF010, &H0
End If
'---------------------------------------------------------------------------
End Sub&lt/pre&gt
Gruß Walter