Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox Zahlenformat

Textbox Zahlenformat
18.02.2008 15:06:00
Frederic
Hi Leute,
ich bräuchte nochmals eure Hilfe, ich komm da nicht weiter, auch im Archiv hab ich nichts gefunden.
Ich habe eine Textbox in einem UF. in diese schreibe ich Beträge rein, z.B. 195,30
Den Input übergebe ich in einem Sheet in Zelle B8 (z.B.)
Er erkennt die Zahl in B8 aber nur als Zahl, wenn ich diese in der TextBox als 195.30 eintrage.
Gibt es hier noch andere Formatierungsmöglichkeiten?
Danke und Gruß.
Frederic

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textbox Zahlenformat
18.02.2008 15:10:07
Jan
Hi,
[b8]= CDbl(textbox1)
mfg Jan

AW: Textbox Zahlenformat
18.02.2008 15:16:33
Frederic
Danke soweit, kleines Prob. noch (bin noch leider kein VBA Profi):
Das UF wird in Sheet (Iindex) gestartet.
Der Wert der textbox wird in Sheets(NR) B8 eingetragen.
Kannst du mir noch kurz helfen?
Danke.
Frederic

AW: Textbox Zahlenformat
18.02.2008 15:20:45
Frederic
Hab noch was probiert.
Mit dem Code:
Sheets("NR").[c2] = CDbl(amount)
trägt er den Betrag zwar richtig ein und berechnet dann auch die summe, aber er bringt:
Typen unverträglich...
Idee?
Frederic

AW: Textbox Zahlenformat
18.02.2008 15:51:00
Peter
Hallo Frederic,
heißt deine TextBox denn wirklich amount?
sollte es nicht besser so heißen: Sheets("NR").[C2] = CDbl(TextBox1) ?
Gruß Peter

Anzeige
AW: Textbox Zahlenformat
18.02.2008 16:05:32
Frederic
Ja sie heisst wirklich so.
Hier der ganze Code:

Private Sub amount_Change()
Sheets("NR").Visible = True
Sheets("NR").[C2] = CDbl(TextBox1)
netamount = Sheets("NR").Range("E2").Value
taxamount = Sheets("NR").Range("F2").Value
user = Sheets("NR").Range("AA1")
End Sub


es heisst aber immer, TYPEN UNVERTRÄGLICH, aber eintragen tut ers richtig und das format passt dann auch. ich muss aber immer DEBUGGEN, sonst lässt er mich ncht raus.
Was mach ich falsch?

AW: Textbox Zahlenformat
18.02.2008 16:37:27
Renee
Hi Frederic,
Ich finde diesen Code etwas unsinnig, da er bei jeder Eingabe in die Textbox durchlaufen wird.
Wenn schon, schlage ich anstelle deines Codes, diesen vor:

Private Sub amount_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo Falsche_eingabe
Sheets("NR").[C2] = CDbl(Replace(amount, ",", "."))
Sheets("NR").Visible = True
netamount = Sheets("NR").Range("E2").Value
taxamount = Sheets("NR").Range("F2").Value
user = Sheets("NR").Range("AA1")
Exit Sub
Falsche_eingabe:
MsgBox "Der amount ist falsch!"
End Sub


GreetZ Renée

Anzeige
AW: Textbox Zahlenformat
18.02.2008 16:38:00
Peter
Hallo Frederic,
aus deinem Code-Beispiel geht leider nicht hervor, wie netamount, taxamount, user aussehen, bzw. was das sind. Sind das benannte Cells, sind das Variablen - wie sind die dann formatiert, hast du sie überhaupt irgendwo definiert?
Ohne diese Angaben kann man dein Makro nicht nachvollziehen.
Gruß Peter

AW: Textbox Zahlenformat
18.02.2008 16:58:51
Frederic 

Private Sub amount_Change()
Sheets("NR").Visible = True
Sheets("NR").[C2] = CDbl(TextBox1)
End Sub


Du kannst den Code auch nur so nehmen, die anderen Textboxen werden aufgrund von Berechnungen im Sheet "NR" gefüllt.
Gruß

Anzeige
siehe meine Antwort oben... (owT)
18.02.2008 17:10:30
Renee

AW: siehe meine Antwort oben... (owT)
18.02.2008 17:15:00
Frederic
ich Depp :-) Danke funtz einwandfrei....
Frederic

AW: siehe meine Antwort oben... (owT)
18.02.2008 17:23:00
Frederic
@ Renee....
Dein Code geht zwar, aber sobald ich in meine Textbox (amount) eine Zahl mit Komma eintippe,
erkennt er es nicht!
Beispiel: 900,25
macht er draus:
90025,00
Noch nen Tipp?
Sorry, bin noch kein Profi in VBA
Frederic

AW: siehe meine Antwort oben... (owT)
18.02.2008 20:30:00
Renee
Hi Frederic,
Kannst du mal ein Beispiel hochladen. Bei mir funktionier der Code ohne Probleme.
Renée

AW: Textbox Zahlenformat
18.02.2008 21:51:39
Peter
Hallo Frederic,
vielleicht hilft dir mein kleines Beispiel weiter: https://www.herber.de/bbs/user/50004.xls
Gruß Peter
Anzeige

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige