Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Dezimalzahl auf Msgbox Punkt/Komma

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
Anzeige

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)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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