Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox-Eingabe in Userform

Forumthread: Textbox-Eingabe in Userform

Textbox-Eingabe in Userform
Sebastian
Hallo liebe Experten,
ich brauche mal wieder eure Hilfe und wäre dankbar für Tips und Feedback zu folgendem Problem:
Ich habe eine Textbox in einer VBA Userform als Eingabemaske für Zahlenwerte. Ich möchte nun, dass diese Textbox es mir ermöglicht, einfache Rechenoperationen durchzuführen (nur +, - , * und /). Beispiel: Wenn ich in die Textbox "=20+15+80" eingebe, soll beim Verlassen der Textbox 115 drin stehen. Wenn ich "=3*4" eingebe soll 12 drin stehen.
Was gibt es hier für Lösungsansätze? Muss ich den Eingabe-String einlesen, in die einzelnen Komponenten auseinander nehmen und dann die Rechnung in VBA machen oder gibt es etwas einfacheres?
Herzlichen Dank im Voraus und beste Grüße!
Sebastian
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Textbox-Eingabe in Userform
11.11.2010 11:09:16
Rudi
Hallo, 
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Evaluate(Replace(TextBox1.Text, ",", "."))
End Sub

Gruß
Rudi
AW: Textbox-Eingabe in Userform
11.11.2010 11:39:34
Sebastian
Hey wow!
Genauso geht's. Perfekte Lösung für mein Problem!
Vielen Dank!
AW: Textbox-Eingabe in Userform
11.11.2010 11:11:37
Hajo_Zi
Hallo Sebastian, 
Option Explicit
Private Sub TextBox1_AfterUpdate()
If TextBox1  "" Then
TextBox1 = Application.Evaluate("=" & TextBox1)
End If
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

VBA: UserForm mit TextBoxen
Ernst Dunkel

In UserForm1 habe ich sechs TextBoxen mit gleich Code.
Wie muss ich die untenstehende Prozedur vereinfachen, so dass der Code für alle TextBoxen in UserForm 1 gilt, ohne die Prozedur 5 mal zu kopieren?
Private Sub TextBox1_KeyPress(ByVal KeyAscii As msforms.ReturnInteger)
Dim TMP$
19.07.2002 15:34:13
Thread-ID: 138550
11 Beiträge
Anzeige
VBA Listbox füllen, Userform in Textbox einlesen
FUMOS

Hallo,
leider werden die Daten aus der Excel-Tabelle nicht in die Listbox eingelesen.
Wo liegt mein Fehler.
Auch möchte ich die Einträge dann in der Userform bearbeiten und dann in der Tabelle überschreiben lassen.
Kann mir jemand helfen.
https://www.herber.de/bbs/user/11622...
13.09.2017 18:40:18
Thread-ID: 1580349
2 Beiträge
VBA: Function in Userform Textbox
Bernd

Hallo zusammen,
Komme bei nachfolgendem Problem nicht weiter und bräuchte Eure Hilfe.
Also bei Verlassen derTextbox1 werden (siehe Code) über VLOOKUP die Werte die in die Textboxen eingelesen. D.h. ich suche folgenden Code sinngemäß: Nehme das Kürzel aus Textbox7 und steuere damit die F...
13.10.2017 09:15:44
Thread-ID: 1585661
8 Beiträge
Anzeige
Textboxen(1 to x) in Userform hinzufügen via VBA
Florian

Hallo zusammen,
ich möchte via VBA in mein UserForm neue Textboxen hinzufügen. Meine Idee sieht so aus, klappt aber nicht:Dim myTextBox(1 To 4) As TextBox
Dim i, j As Integer
For i = 1 To 100
If ComboBox5.Text = ActiveSheet.Cells(i, 5) Then
If ComboBox5.Text "" Then
For j = 1...
24.06.2003 15:58:28
Thread-ID: 272884
3 Beiträge
VBA Userform Textbox fehler
Rudi

Hallo
ich habe folgendes Problem! In einer Userform lasse ich mir Daten aus einer Tabelle anzeigen,
*TextBox1 = Format(Range("DatenInvestition!G32").Value, "#0")*
und schreibe die Daten auch wieder zurück.
*Worksheets("DatenInvestition").Range("G32") = CDbl(TextBox1)*
Pass...
14.07.2004 10:54:33
Thread-ID: 455027
3 Beiträge
VBA UserForm - Textbox Wert in Tabelle
Moritz

Hallo liebe Experten,
ich habe eine UserForm erstellt mit der ich gewisse Informationen in eine Tabelle übertragen möchte. Funktioniert auch alles soweit nur habe ich ein kleines Problem zu dem ich keine Lösung finde.
Die Werte, die ich in der UserForm in die verschiedenen Textboxen ein...
03.11.2020 14:01:26
Thread-ID: 1790889
3 Beiträge
VBA Userform Button Speichern und neuen Wert in Textbox
DLMuc
Hallo liebe VBA Gemeinde,

nach dem ich hier schon sehr viele Tipps, Trick's und Hilfestellungen gefunden habe, komme ich voran. Aber bei einem Problem hängt es bei mir massiv bzw. ich finde überhaupt keine Lösung und hoffe auf Unterstützung von Euch.

Istzustand:
Es besteht ein...
03.02.2024 01:19:07
Thread-ID: 1963332
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Textbox-Eingabe in einer VBA Userform

Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei und gehe in den VBA-Editor (Alt + F11).
  2. Erstelle eine Userform:
    • Klicke auf „Einfügen“ und wähle „UserForm“.
  3. Füge eine TextBox hinzu:
    • Ziehe eine TextBox auf die Userform.
  4. Füge den folgenden VBA-Code ein: 
    Private Sub TextBox1_AfterUpdate()
   If TextBox1 <> "" Then
       TextBox1 = Application.Evaluate("=" & TextBox1)
   End If
End Sub
    • Dieser Code sorgt dafür, dass beim Verlassen der TextBox die eingegebene Rechnung automatisch ausgewertet wird.
  5. Teste die Userform:
    • Starte die Userform, gib eine Rechnung wie =20+15+80 ein und verlasse die TextBox.

Häufige Fehler und Lösungen

  • Fehlermeldung beim Ausführen der Berechnung:

    • Stelle sicher, dass du die Eingabe mit einem Gleichheitszeichen (=) beginnst.

  • Die TextBox zeigt nicht das erwartete Ergebnis an:

    • Überprüfe, ob im Code das richtige TextBox-Steuerelement angesprochen wird. Vergewissere dich, dass der Name der TextBox korrekt ist.

Alternative Methoden

  • Verwendung von Evaluate:

    • Du kannst auch den folgenden Code nutzen, um die Eingabe zu evaluieren: 
      Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Evaluate(Replace(TextBox1.Text, ",", "."))
End Sub

  • InputBox als Alternative:

    • Wenn du statt einer Userform lieber eine InputBox verwenden möchtest, kannst du dies ebenso tun: 
      Dim userInput As String
userInput = InputBox("Gib deine Rechnung ein:")
MsgBox Evaluate("=" & userInput)

Praktische Beispiele

  1. Einfaches Addieren:

    • Eingabe: =5+10
    • Ergebnis: 15

  2. Multiplikation:

    • Eingabe: =3*4
    • Ergebnis: 12

  3. Kombinierte Berechnung:

    • Eingabe: =20-5+10*2
    • Ergebnis: 35

Die Nutzung einer excel userform textbox für Berechnungen kann sehr wirkungsvoll sein, um die Benutzereingabe zu steuern.

Tipps für Profis

  • Validierung der Eingabe:

    • Implementiere eine Eingabewarteschleife, um sicherzustellen, dass nur gültige mathematische Ausdrücke eingegeben werden.

  • Erweiterung der Funktionalität:

    • Überlege, komplexere Funktionen wie Wurzel oder Potenzen einzuführen, indem du die Eingabe vorher analysierst.

  • Ästhetik verbessern:

    • Gestalte die Userform ansprechend, um die Benutzerfreundlichkeit zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass nur Zahlen eingegeben werden?
Du kannst den Text in der TextBox während der Eingabe validieren, indem du das KeyPress-Ereignis der TextBox verwendest.

2. Funktioniert dies in allen Excel-Versionen?
Ja, die vorgestellten Methoden sind in allen gängigen Excel-Versionen nutzbar, die VBA unterstützen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige