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

inputbox Bei Eingabe einer kommazahl fehler

Forumthread: inputbox Bei Eingabe einer kommazahl fehler

inputbox Bei Eingabe einer kommazahl fehler
03.03.2009 16:54:07
Michael
Hallo!
Wenn ich Ganze ZAHLEN eingebe ist alles OK. Sobald ich zB. in der Inputbox die Zahl 32,4 eingebe, wird das in Feld d3 als Text ausgebeben. Gebe ich das mit einem Punkt ein, wandelt er es in eine Zahl um. Wie kann ich das umgehen. Wenn ich 32,4 eingebe, soll er dieses als Zahl in d3 auch erscheinen.
Vielen Dank
Gruß Michael

Sub MSGBOX2()
Dim eingabe As Integer
ActiveSheet.range("d1").Value = InputBox("Geben Sie eine Zahl ein", eingabe, range("d1"))
ActiveSheet.range("d2").Value = InputBox("Geben Sie eine Zahl ein", eingabe, range("d2"))
ActiveSheet.range("d3").Value = InputBox("Geben Sie eine Zahl ein", eingabe, range("d3"))
End Sub


Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: inputbox Bei Eingabe einer kommazahl fehler
03.03.2009 16:59:32
Heinz
Hi,
Integer sind nun mal Ganzzahlen, nimm Double oder Single.
mfg Heinz
AW: inputbox Bei Eingabe einer kommazahl fehler
03.03.2009 17:10:50
Michael
Hallo!
Daran liegt es leider nicht!
Gleicher Fehler. Die 32,4 bleiben links als text stehen.
Gruß Michael
AW: inputbox Bei Eingabe einer kommazahl fehler
03.03.2009 17:20:51
fcs
Hallo Michael,
Excel-VBA hat auch noch eine anwendungsspezifische Inputbox. Hier kannst du per Parameter vorgeben, welchen Typ die Eingabe haben soll.

Dim test As Double
test = Application.InputBox(Prompt:="Testeingabe", Title:="Mein test", Default:=0, Type:=1)
'Type-Wert Bedeutung
'0 Formel
'1 Zahl
'2 Text (Zeichenfolge)
'4 Logischer Wert (True oder False)
'8 Zellbezug, z.B. ein Range-Objekt
'16 Fehlerwert, z.B. #N/A
'64 Wertematrix
Weitere Infos: siehe Hilfe VBA


Die zulässige Eingabe für Zahlen hängt dann von den Systemeinstellungen ab.
Gruß
Franz

Anzeige
AW: inputbox Bei Eingabe einer kommazahl fehler
03.03.2009 17:39:23
Michael
Danke! Gute Erklährung! Ich gaub es hat geschnackelt.
Ja Ja, die Ammis kennen nur einen PUNKT und kein KOMMA
Thanks
AW: inputbox Bei Eingabe einer kommazahl fehler
03.03.2009 17:08:45
Renee
Hi Michael,
1. Deine Dim eingabe As Integer ist völlig überflüssig! Dort wo du den Parameter eingabe in der Inputbox hast, müsste eigentlich ein "Titel der InputBox" stehen!
2. InputBox gibt immer einen String zurück, da dieser durch die Zelleingabeprüfung von Excel läuft wird daraus ev. eine Zahl.
3. Probier's mal so:

Sub MSGBOX2()
ActiveSheet.Range("d1").Value = Replace(InputBox("Zahl bitte", "Titel", Range("d1")), ",", ".")
ActiveSheet.Range("d2").Value = Replace(InputBox("Zahl bitte", "Titel", Range("d2")), ",", ".")
ActiveSheet.Range("d3").Value = Replace(InputBox("Zahl bitte", "Titel", Range("d3")), ",", ".")
End Sub


GreetZ Renée

Anzeige
AW: inputbox Bei Eingabe einer kommazahl fehler
03.03.2009 17:36:57
Michael
Danke! Das knallt. Alleine wäre ich nicht darauf gekommen.
Ja Ja, die Ammis kennen nur einen PUNKT und kein KOMMA
Thanks
AW: inputbox Bei Eingabe einer kommazahl fehler
03.03.2009 17:09:43
Ramses
Hallo
Was die Variable "Eingabe" soll, erschliesst sich wohl nur dir.
Das Problem mit der Inputbox ist, das VBA kein "Komma" als Dezimaltrennzeichen kennt, sondern nur den Punkt.
Mach mal die Eingabe mit "." als Trennzeichen, dann sollte dies funktionieren
ActiveSheet.range("d1").Value = cdbl(InputBox("Geben Sie eine Zahl ein", eingabe, range("d1")))
Gruss Rainer
Anzeige
AW: inputbox Bei Eingabe einer kommazahl fehler
03.03.2009 17:38:19
Michael
Danke! Alleine wäre ich nicht darauf gekommen.
Ja Ja, die Ammis kennen nur einen PUNKT und kein KOMMA
Thanks
;
Anzeige
Anzeige

Infobox / Tutorial

Eingabe von Kommazahlen in Excel mit der InputBox


Schritt-für-Schritt-Anleitung

Um in Excel Kommazahlen korrekt mit einer InputBox einzugeben, kannst du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Erstelle ein neues Modul:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeinWorkbookName)" und wähle "Einfügen" > "Modul".
  3. Füge den folgenden Code ein:

    Sub MSGBOX2()
       ActiveSheet.Range("d1").Value = Replace(InputBox("Geben Sie eine Zahl ein", "Titel", Range("d1")), ",", ".")
       ActiveSheet.Range("d2").Value = Replace(InputBox("Geben Sie eine Zahl ein", "Titel", Range("d2")), ",", ".")
       ActiveSheet.Range("d3").Value = Replace(InputBox("Geben Sie eine Zahl ein", "Titel", Range("d3")), ",", ".")
    End Sub
  4. Speichere und führe das Makro aus:

    • Drücke F5, um das Makro auszuführen. Jetzt kannst du Kommazahlen wie 32,4 eingeben, und sie werden korrekt als Zahlen in den Zellen D1, D2 und D3 angezeigt.

Häufige Fehler und Lösungen

  • Eingabe als Text: Wenn du eine Kommazahl eingibst und Excel sie als Text anzeigt, stelle sicher, dass du die Komma-Eingabe mit einem Punkt ersetzt. Der obige Code zeigt dir, wie das geht.

  • Integer vs. Double: Wenn du Dim eingabe As Integer verwendest, kann dies dazu führen, dass nur ganze Zahlen akzeptiert werden. Ändere dies zu Dim eingabe As Double, um Kommazahlen zuzulassen.

  • Systemeinstellungen: Manchmal hängt die zulässige Eingabe von deinen Systemeinstellungen ab. Überprüfe die Regionseinstellungen deines Computers, um sicherzustellen, dass sie mit dem verwendeten Dezimaltrennzeichen übereinstimmen.


Alternative Methoden

Eine alternative Methode zur Eingabe von Kommazahlen in Excel ist die Verwendung der anwendungsspezifischen InputBox. Hier ein Beispiel:

Dim test As Double
test = Application.InputBox(Prompt:="Geben Sie eine Zahl ein", Title:="Zahl eingeben", Default:=0, Type:=1)

Mit Type:=1 wird sichergestellt, dass nur Zahlen akzeptiert werden. Diese Methode kann besonders nützlich sein, um Eingaben zu validieren.


Praktische Beispiele

Hier sind einige Beispiele, die dir helfen, Kommazahlen in Excel korrekt einzugeben:

  • Beispiel 1: Eingabe von 2.5 und 4.0 in die Zellen D1 und D2.
  • Beispiel 2: Verwende das Makro, um mehrere Kommazahlen einzulesen, und beobachte, wie sie in den entsprechenden Zellen erscheinen.

Tipps für Profis

  • Wenn du regelmäßig mit Kommazahlen arbeitest, erwäge, deine InputBox mit einer validierenden Funktion zu erweitern, die sicherstellt, dass der Benutzer nur gültige Kommazahlen eingibt.

  • Füge Fehlermeldungen hinzu, um die Benutzerfreundlichkeit zu erhöhen. Beispielsweise kannst du eine Nachricht anzeigen, wenn der Benutzer eine ungültige Zahl eingegeben hat.

  • Denke daran, dass Excel Kommazahlen nicht mit einem Komma, sondern mit einem Punkt als Dezimaltrennzeichen erwartet. Dies ist besonders wichtig, wenn du mit internationalen Benutzern arbeitest.


FAQ: Häufige Fragen

1. Was ist eine 2 als Kommazahl?
Eine 2 als Kommazahl ist einfach die Zahl 2, die auch als Dezimalzahl dargestellt werden kann, z.B. als 2.0.

2. Warum funktioniert die Eingabe von 32,4 nicht?
Excel erwartet in vielen Regionen einen Punkt als Dezimaltrennzeichen. Das bedeutet, du solltest 32.4 eingeben, um die Zahl korrekt zu erfassen.

3. Wie kann ich die InputBox anpassen?
Du kannst die Parameter der InputBox ändern, um spezifische Anweisungen oder Titel anzuzeigen, die dem Benutzer helfen, die Eingabe zu verstehen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige