UserForm mit Enter beenden

Forumthread: UserForm mit Enter beenden

21.01.2004 17:18:57

Elmar Steigenberger

Hallo Ihr lieben Helfer und Helferinnen,
Wie kann ich eine Userform mit Enter beenden?
Der Commandbutton heißt CB_Fertig


Private Sub CB_Fertig_Click()
Unload Me
End Sub

Wie bekomme ich Excel dazu, dass es mir die Schaltfläche hervorhebt?
Vielen Dank fürs Lesen und Antworten
liebe e-Grüße Elmar

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: UserForm mit Enter beenden

21.01.2004 17:43:06

Gerd
Vielen Dank! Hat einwandfrei funktioniert! oT

21.01.2004 22:18:39

Elmar Steigenberger

AW: UserForm mit Enter beenden

21.01.2004 17:43:06

Gerd

Default des Button auf True stellen.
Gerd

Vielen Dank! Hat einwandfrei funktioniert! oT

21.01.2004 22:18:39

Elmar Steigenberger

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine UserForm in Excel VBA mit der Enter-Taste zu beenden, folge diesen Schritten:

Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu starten.
Erstelle eine UserForm: Klicke auf „Einfügen“ und wähle „UserForm“.
Füge einen CommandButton hinzu: Ziehe einen Button auf die UserForm. Nenne ihn CB_Fertig.
Füge den Code hinzu: Doppelklicke auf den CommandButton, um das Code-Fenster zu öffnen, und füge den folgenden Code ein:
```
Private Sub CB_Fertig_Click()
   Unload Me
End Sub
```
Setze den Default-Wert des Buttons: Stelle sicher, dass der Button als Default gesetzt ist, indem du den Default-Eigenschaft des Buttons auf True setzt. Dies kannst du im Eigenschaftenfenster tun.
Testen: Starte die UserForm und drücke die Enter-Taste, um die Form zu schließen.

Häufige Fehler und Lösungen

Fehler: Die UserForm schließt sich nicht mit Enter.
- Lösung: Überprüfe, ob der Default-Wert des CommandButtons richtig gesetzt ist. Wenn er auf True steht, sollte die Enter-Taste die Schaltfläche aktivieren.
Fehler: Der CommandButton wird nicht hervorgehoben.
- Lösung: Stelle sicher, dass die UserForm den Fokus hat. Du kannst auch den SetFocus-Befehl verwenden, um sicherzustellen, dass der Button hervorgehoben wird.

Alternative Methoden

Falls du die UserForm auf andere Weise schließen möchtest, kannst du folgende Methoden verwenden:

Schließen über ESC-Taste: Du kannst das Schließen der UserForm auch an die ESC-Taste binden, indem du den folgenden Code in das UserForm-Codefenster einfügst:
```
Private Sub UserForm_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
   If KeyCode = vbKeyEscape Then
       Unload Me
   End If
End Sub
```
Verwendung von anderen Steuerelementen: Du kannst auch andere Steuerelemente hinzufügen, die das Schließen der UserForm ermöglichen, z.B. ein Label oder ein Bild.

Praktische Beispiele

Hier ist ein einfaches Beispiel, um die UserForm mit einem Button und der Enter-Taste zu schließen:

Erstelle eine UserForm mit einem Textfeld und einem CommandButton.

Füge den folgenden Code hinzu:

Private Sub CB_Fertig_Click()
   Unload Me
End Sub

Private Sub UserForm_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
   If KeyCode = vbKeyReturn Then
       Unload Me
   End If
End Sub

In diesem Beispiel wird die UserForm sowohl durch Klicken auf den Button als auch durch Drücken der Enter-Taste geschlossen.

Tipps für Profis

Verwende mehrere Steuerelemente: Nutze verschiedene Steuerelemente in deiner UserForm, um die Benutzerinteraktion zu verbessern.
Design und Benutzerfreundlichkeit: Achte darauf, dass die UserForm ansprechend und benutzerfreundlich gestaltet ist. Verwende klare Bezeichnungen für Schaltflächen.
Fehlerbehandlung: Implementiere Fehlerbehandlungen im Code, um mögliche Laufzeitfehler zu vermeiden.

FAQ: Häufige Fragen

1. Warum funktioniert die Enter-Taste nicht? Überprüfe, ob der Button korrekt als Default gesetzt ist und ob die UserForm den Fokus hat.

2. Kann ich andere Tasten zum Schließen der UserForm verwenden? Ja, du kannst beliebige Tasten verwenden, indem du die KeyDown-Ereignisprozedur anpasst und die entsprechenden KeyCodes abfragst.

Beliebteste Forumthreads (12 Monate)