ich habe mir mal eine Userform aus dem Netz gesucht, die beim starten
öffnen soll.
Die passt sich dem Bildschirm an.
Nun möchte ich gern, beim starten der UF das die vorhandenen
CommandButton sich ebenfalls mittig plazieren, habe leider nichts
passendes gefunden.
Private Sub UserForm_Initialize()
'--------------- für die Bildschirmanpassung ----------------------------------
Dim hwndForm As Long
Dim hwndMenu As Long
Dim intY As Integer
Dim intLast As Integer
Dim intNext As Integer
Dim UserForm
' On Error Resume Next
'Dim UserForm
'--------------- für Bildschirmanpassung ------
With Me
.StartUpPosition = 0
.Top = 0
.Left = 0
.Height = GetDeviceCaps(GetDC(0&), HORZRES)
.Width = GetDeviceCaps(GetDC(0&), VERTRES)
End With
ReleaseDC 0, GetDC(0&)
hwndForm = FindWindow(GC_CLASSNAMEMSEXCELFORM, Me.Caption)
If hwndForm 0 Then
hwndMenu = GetSystemMenu(hwndForm, 0)
If hwndMenu 0 Then DeleteMenu hwndMenu, SC_MOVE, MF_BYCOMMAND
End If
Sheets("Start").Select
Range("A1").Select
End Sub
grußSigrid