Frage von Monkee, 73

VBA-UserBox TextBox als Währung Formatieren?

Hallo Experten, Wie kann ich eine Textbox in einer UserBox formatieren damit in der Zelle ActiveCell.Offset(0, 4).Value = .TextBox2.Value 'Einzelpreis eine Währung (€) angezeigt wird mit der ich dann weiter rechnen kann. Hier mal der gesamte Code

Private Sub CommandButton1_Click()

Set frm = UserForm1

Application.ScreenUpdating = False

Sheets("Tabelle5").Activate

'letzte belegte Zelle in Tabelle finden

Range("b65536").End(xlUp).Offset(1, 0).Select

With frm

ActiveCell.Value = .ComboBox1.Value 'Beschreibung

ActiveCell.Offset(0, 1).Value = .TextBox1.Value 'Menge

ActiveCell.Offset(0, 3).Value = .ComboBox2.Value 'Einheit

ActiveCell.Offset(0, 4).Value = .TextBox2.Value 'Einzelpreis

ActiveCell.Offset(0, 2).Value = " "

ActiveCell.Offset(0, 5).Value = ActiveCell.Offset(0, 1) * ActiveCell.Offset(0, 4)

    Sheets("Beschreibung").Activate

    'letzte belegte Zelle in Tabelle finden

    Range("a65536").End(xlUp).Offset(1, 0).Select

    With frm
        ActiveCell.Value = .ComboBox1.Value
    End With

End With Sheets("Tabelle5").Activate Application.ScreenUpdating = True

End Sub

Kann da jemand helfen Gruß Monkee

Antwort
von xGlumi, 63
ActiveCell.Offset(0, 4).Value = Format(.TextBox2.Value, "Currency")

MFG xGlumi

Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten