UserForm in Excel fixieren
Schritt-für-Schritt-Anleitung
Um eine UserForm in Excel zu fixieren, sodass sie nicht verschoben werden kann, kannst du die Titelleiste der UserForm ausblenden. Dies geschieht durch den Einsatz von Windows API-Funktionen. Hier ist eine Schritt-für-Schritt-Anleitung:
-
Öffne den Visual Basic for Applications (VBA) Editor in Excel.
-
Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf "Module" klickst und "Einfügen" > "Modul" auswählst.
-
Kopiere den folgenden Code in das Modul:
Option Explicit
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
As Long, ByVal dwNewLong As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal _
hwnd As Long) As Long
Const GWL_STYLE As Long = -16
Const WS_CAPTION As Long = &H800000
Public hWndForm As Long
Public bCaption As Boolean
Sub SetUserFormStyle()
Dim frmStyle As Long
If hWndForm = 0 Then Exit Sub
frmStyle = GetWindowLong(hWndForm, GWL_STYLE)
If bCaption Then
frmStyle = frmStyle Or WS_CAPTION
Else
frmStyle = frmStyle And Not WS_CAPTION
End If
SetWindowLong hWndForm, GWL_STYLE, frmStyle
DrawMenuBar hWndForm
End Sub
-
Füge nun den folgenden Code in das UserForm-Modul ein:
Private Sub UserForm_Initialize()
If Val(Application.Version) >= 9 Then
hWndForm = FindWindow("ThunderDFrame", Me.Caption)
Else
hWndForm = FindWindow("ThunderXFrame", Me.Caption)
End If
bCaption = False
SetUserFormStyle
End Sub
-
Schließe den VBA-Editor und teste deine UserForm. Die Titelleiste sollte nun verschwunden sein, und die UserForm kann nicht mehr verschoben werden.
Häufige Fehler und Lösungen
-
Fehler: Die UserForm wird nicht korrekt angezeigt.
- Lösung: Stelle sicher, dass der Code in das richtige Modul eingefügt wurde und dass die UserForm korrekt initialisiert wird.
-
Fehler: Die UserForm kann zwar nicht verschoben werden, aber das Layout sieht nicht gut aus.
- Lösung: Überprüfe die Größe und Position der UserForm. In den Eigenschaften kannst du die Größe so anpassen, dass sie den gewünschten Bereich abdeckt.
Alternative Methoden
Eine einfachere Möglichkeit, um eine UserForm in Excel zu fixieren, besteht darin, die Größe der UserForm so zu ändern, dass sie den gesamten Bildschirm ausfüllt. Setze die Eigenschaften wie folgt:
- Left: 0
- Top: -28,5
- Width: Bildschirmbreite
- Height: Bildschirmhöhe
Diese Methode sorgt dafür, dass die UserForm den gesamten Bildschirm ausfüllt und somit nicht mehr verschoben werden kann.
Praktische Beispiele
Hier ist ein Beispiel, wie du eine UserForm fixieren kannst:
- Erstelle eine UserForm mit dem Namen "UserForm1".
- Füge den Code aus der Schritt-für-Schritt-Anleitung hinzu.
- Teste die UserForm und stelle sicher, dass sie die gewünschten Eigenschaften hat.
Tipps für Profis
- Verwende API-Calls: Wenn du tiefer in die Programmierung einsteigen möchtest, kannst du auch andere API-Funktionen erkunden, um die Benutzeroberfläche weiter anzupassen.
- Optimiere die UserForm: Denke daran, dass eine gut gestaltete UserForm die Benutzerfreundlichkeit erhöht. Achte auf Farben, Schriftarten und Layout.
FAQ: Häufige Fragen
1. Kann ich die UserForm trotzdem schließen, wenn die Titelleiste entfernt wurde?
Ja, du kannst einen Schließen-Button in die UserForm einfügen, um die UserForm zu schließen.
2. Funktioniert dies in allen Excel-Versionen?
Die beschriebenen Methoden funktionieren in den meisten neueren Excel-Versionen, insbesondere in Excel ab Version 2000. Achte darauf, dass du den richtigen Code für deine Excel-Version verwendest.