Anzeige
Archiv - Navigation
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA Dezimalzahl auf Msgbox Punkt/Komma
25.09.2020 16:33:28
Silke
Hallo,
ich verzweifle an diesem Code. Bin kein Profi und suche mir die Code Schnipsel aus dem Netz.
Hier komme ich leider nicht weiter.
Mit einer Message Box wird man aufgeführt eine Dezimalzahl einzugeben.
eingegebener Wert wird in Zelle G2 übernommen.
Damit wird dann weitergerechnet.
Klappt nur, wenn runde Zahlen, sobald Dezimalzahl klappt es nur, wenn ich die Zahl mit Punkt eintrage, bspw: 100.25.
Wenn ich Zahl über Zahlenblock 100 25 eingebe wird der Wert nicht als Zahl erkannt und somit läuft auch keine Berechnung im Hintergrund.
Wie kann man das Ändern? Lösung?
In Excel Einstellungen ist alles richtig "." als Tausendertrennzeichen und "," als Dezimaltrennzeichen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Dezimalzahl auf Msgbox Punkt/Komma
25.09.2020 16:35:04
Silke
Code:
Sub Strom()
Application.ScreenUpdating = False
Worksheets("Standort").Range("G2") = InputBox("Eingabe:")
Range("G2").Select
Sheets("Belegung").Select
Application.ScreenUpdating = True
End Sub

AW: VBA Dezimalzahl auf Msgbox Punkt/Komma
25.09.2020 16:51:29
Hajo_Zi
Inputbox ist Text.
Worksheets("Standort").Range("G2") = CDbl(InputBox("Eingabe:"))
das geht bei mir.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.

Anzeige
AW: VBA Dezimalzahl auf Msgbox Punkt/Komma
25.09.2020 17:57:49
GerdL
Moin Silke!
Sub Unit()
Dim X As Variant
'X = InputBox("Eingabe:")
X = "100,25"
If IsNumeric(X) Then
Worksheets("Standort").Cells(2, 8) = CDbl(X)
End If
End Sub

Gruß Gerd
AW: VBA Dezimalzahl auf Msgbox Punkt/Komma
28.09.2020 10:57:26
Silke
Hallo Gerd,
perfekt ich danke dir - funktioniert bestens! :-)
Nur ein kleiner Schönheitsfehler, G2 wäre Cells(2,7)

267 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige