Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1764to1768
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
Inhaltsverzeichnis

Textbox Länderkennung

Textbox Länderkennung
25.06.2020 15:18:58
Schneider
Hallo liebes Excelforum,
ich verzweifel gerade. Ich habe eine TextBox die in eine Tabelle eine Dezimalzahl mit 5 Nachkommastellen ausgeben soll. Es ist ein Formblatt (Userform) in dem sowohl die Länderkennung auf deutsch bzw. englisch je nach Anwender eingestellt ist. Da es sich um einen Währungskurs handelt, muss dieser öfter geändert werden.
Es kann vorkommen, dass der Ersteller eine englische Länderkennung hat und der Nachbearbeiter eine Deutsche.
Ich habe versucht mit verschiedenen Befehlen die Zahlen zu übertragen, leider ohne Erfolg, z.B.
Sheets("Tabelle1").Range("A1).value = cdbl(Textbox1.value)
Eingabe (englisch) in TextBox war 1.3456, Ausgabe 13456 bzw. 13,456.00000
Was mache ich falsch?
Vielen Dank für eure Hilfe

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox Länderkennung
25.06.2020 15:27:19
Sigi
Hallo,
beim deutschen Excel ist halt das "Komma" das Dezimalzeichen.
Sigi
AW: Textbox Länderkennung
25.06.2020 16:10:13
Sigi
Als Ergänzung:
Frag das Dezimalzeichen der jeweiligen Einstellung ab und ersetze dann den Punkt durch Komma, sofern nötig:
DezZch = Application.DecimalSeparator
If DezZch = "," Then
Txt = WorksheetFunction.Substitute(Textbox1.Value, ".", ",")
Sheets("Tabelle1").Range("A1").Value = CDbl(Textbox1.Value)
Else
Sheets("Tabelle1").Range("A1").Value = CDbl(Textbox1.Value)
End If
Sigi
AW: Textbox Länderkennung
25.06.2020 16:12:07
Sigi
Berichtigung:
DezZch = Application.DecimalSeparator
If DezZch = "," Then
Textbox1.Value = WorksheetFunction.Substitute(Textbox1.Value, ".", ",")
Sheets("Tabelle1").Range("A1").Value = CDbl(Textbox1.Value)
Else
Sheets("Tabelle1").Range("A1").Value = CDbl(Textbox1.Value)
End If
Sigi
Anzeige
AW: Textbox Länderkennung
25.06.2020 19:25:21
Schneider
Danke für die schnelle Hilfe. Werde ich morgen testen. Ich hoffe das ist die Lösung.
AW: Textbox Länderkennung
26.06.2020 11:41:04
Hajo_Zi
offen bedeutet es soll noch eine Antwort kommen.
Warum ist dein Beitrag Offen.
Du willst doch was machen. Soll jemand vorbei kommen?
Das ist nur meine Meinung zu dem Thema.

AW: Textbox Länderkennung
29.06.2020 08:17:16
Schneider
Hallo,
habe den Code von Sigi eingebaut, leider bekomme ich jetzt die Fehlermeldung das die Variable nicht definiert ist. Da ich ein absoluter Anfänger in VBA bin, komme ich nicht weiter.
Wie kann ich diese Fehlermeldung beheben?
Vielen Dank für Eure Hilfe.
Anzeige
AW: Textbox Länderkennung
29.06.2020 16:52:43
Hajo_Zi
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige