Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Textbox ohne Leerzeichen

Textbox ohne Leerzeichen
08.07.2005 15:28:44
ThomasB
Hallo Leute,
die Recherche hat mich leider nicht recht ans Ziel gebracht, drum stelle ich die Frage hier. Wie kann ich es erreichen das in einer Textbox keine Leerzeichen eingegebn werden können. Ich habe es über die Zeichenbegrenzung versucht aber das hat nicht den rechten Erfolg gebracht, da weniger Zeichen immer die Eingabe von Leerzeichen zulässt. Vielleicht könnt Ihr mir ja Helfen.
Mfg
Thomas B
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox ohne Leerzeichen
08.07.2005 15:35:37
Leo
Hi,

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then KeyAscii = 0
End Sub

mfg Leo
AW: Textbox ohne Leerzeichen
08.07.2005 15:43:08
ThomasB
Danke funzt.
Mfg
ThomasB
AW: Textbox ohne Leerzeichen
08.07.2005 15:39:29
EffHa
Change Ereignis der Textbox wie folgt:

Private Sub TextBox1_Change()
If Right(TextBox1.Text, 1) = Chr(32) Then
MsgBox ("keine Leerzeichen erlaubt)")
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
End Sub

Gruß
Fritz
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Textbox ohne Leerzeichen in Excel


Schritt-für-Schritt-Anleitung

Um in einer Excel-Textbox die Eingabe von Leerzeichen zu verhindern, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues UserForm hinzu, indem du mit der rechten Maustaste auf "Projekt" klickst und "UserForm einfügen" wählst.

  3. Ziehe eine TextBox auf das UserForm.

  4. Doppelklicke auf die TextBox, um den Code-Editor für die TextBox zu öffnen.

  5. Füge den folgenden Code ein, um Leerzeichen zu blockieren:

    Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
       If KeyAscii = 32 Then KeyAscii = 0
    End Sub
  6. Schließe den VBA-Editor und teste deine TextBox. Jetzt sollten keine Leerzeichen mehr eingegeben werden können.


Häufige Fehler und Lösungen

  • Fehler: Leerzeichen werden trotzdem erlaubt.

    • Lösung: Überprüfe, ob du den richtigen Namen für die TextBox verwendest. Stelle sicher, dass der Code in der richtigen TextBox platziert ist.
  • Fehler: Der VBA-Code wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass Makros in Excel aktiviert sind. Du kannst dies in den Excel-Optionen unter "Sicherheitscenter" überprüfen.

Alternative Methoden

Eine andere Möglichkeit, um Leerzeichen in einer TextBox zu verhindern, besteht darin, das Change-Ereignis der TextBox zu verwenden. Hier ist der entsprechende Code:

Private Sub TextBox1_Change()
    If Right(TextBox1.Text, 1) = Chr(32) Then
        MsgBox ("Keine Leerzeichen erlaubt")
        TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
    End If
End Sub

Dieser Code zeigt eine Meldung an, wenn am Ende der Eingabe ein Leerzeichen steht und entfernt es automatisch.


Praktische Beispiele

Hier ist ein Beispiel, wie du eine TextBox in einem Excel-Formular erstellen kannst, die keine Leerzeichen akzeptiert:

  1. Erstelle ein UserForm mit einer TextBox.
  2. Füge den obigen Code (KeyPress oder Change) hinzu.
  3. Verwende das UserForm, um Daten zu sammeln, ohne dass unerwünschte Leerzeichen eingegeben werden.

Dies ist besonders nützlich, wenn du sicherstellen möchtest, dass die Eingaben in datenbankähnlichen Tabellen ohne Leerzeichen erfolgen.


Tipps für Profis

  • Nutze die Trim-Funktion, um Leerzeichen am Anfang und Ende von Texten zu entfernen, bevor du die Eingaben weiterverarbeitest.
  • Überlege, zusätzlich eine Validierung für die Eingaben einzuführen, um sicherzustellen, dass nur zulässige Zeichen eingegeben werden.
  • Experimentiere mit den Eigenschaften der TextBox, um das Benutzererlebnis zu verbessern, z.B. durch Platzhalter oder Hinweise.

FAQ: Häufige Fragen

1. Warum kann ich keine Leerzeichen in meiner TextBox eingeben? Das liegt daran, dass der VBA-Code so konfiguriert wurde, dass die Leertaste (ASCII 32) blockiert wird.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, der VBA-Code funktioniert in den meisten aktuellen Versionen von Excel, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.

3. Kann ich auch HTML verwenden, um Leerzeichen zu entfernen? In Excel ist die Verwendung von HTML nicht direkt möglich, aber du kannst VBA verwenden, um ähnliche Funktionen zu erreichen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige