Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

TextBox Währungs Format | Herbers Excel-Forum


Betrifft: TextBox Währungs Format von: ABO
Geschrieben am: 18.11.2009 22:08:10

Hallo zusammen,

ich habe in meinem Makro_

Sheets("Tabelle 1").Cells(erste_freie_Zeile, 11) = Format(TextBox9.Text, "#,##0,00 €") '"#,##0,00 €;#,##0,00 €")

einen Fehler. Die Zahl (Währung) wird in die Zelle geschrieben jedoch wenn man Komma Beträge eingibt, wird die Zahl aufgerundet oder abgerundet.

Z.B.: 11,90€ -> 12,00€ ; 11,20€ -> 11,00€

Was mache ich falsch?

Gruß ABO

  

Betrifft: .Value = Replace(TextBox9.Value, ",", ".") von: NoNet
Geschrieben am: 18.11.2009 22:23:20

Hallo Abo,

probiere es mal so :

Private Sub CommandButton1_Click()
    With Sheets("Tabelle 1").Cells(erste_freie_Zeile, 11)
        .Value = Replace(TextBox9.Value, ",", ".")
        .NumberFormat = "#,##0.00 €"
    End With
End Sub
Gruß, NoNet


  

Betrifft: Super Funktioniert! von: ABO
Geschrieben am: 18.11.2009 22:38:12

Super Funktioniert!
Danke:-)


Beiträge aus den Excel-Beispielen zum Thema "TextBox Währungs Format"