Userform in euro

Forumthread: Userform in euro

Userform in euro

17.03.2020 08:47:22

Tim

Guten morgen,
ich habe ein Userform:

Private Sub UserForm_Initialize()
TextBoxA1.Text = Worksheets("Alle Bestellungen").Range("A53").Value 'Artikelnummer
TextBoxB1.Text = Worksheets("Alle Bestellungen").Range("B53").Value 'Bezeichnung
TextBoxC1.Text = Worksheets("Alle Bestellungen").Range("C53").Value 'Èinzelpreis
TextBoxD1.Text = Worksheets("Alle Bestellungen").Range("D53").Value ' Menge
TextBoxE1.Text = Worksheets("Alle Bestellungen").Range("E53").Value ' gesamtpreis
End Sub

In C53 soll mit Euro angezeigt werden.
Anschließend gebe ich im Userform die Menge D53 ein und dann soll in E56 der Preis kommen
Menge x Einzelpreis.
Kann mir jemand helfen.
Danke

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Userform in euro

17.03.2020 09:46:34

Tim
bitte um hilfe

17.03.2020 10:00:08

Tim
AW: Userform in euro

17.03.2020 10:02:22

Oberschlumpf
AW: Userform in euro

17.03.2020 10:12:44

Tim

AW: Userform in euro

17.03.2020 09:46:34

Tim

Hallo,
ich hab es mit dem Euro geschafft. Leider habe ich Probleme mit dem Berechnen:

Private Sub UserForm_Initialize()
TextBoxA1.Text = Worksheets("Alle Bestellungen").Range("A53").Value
TextBoxB1.Text = Worksheets("Alle Bestellungen").Range("B53").Value
TextBoxC1.Value = Format(Worksheets("Alle Bestellungen").Range("C53"), "0.00 ")
TextBoxD1.Text = Worksheets("Alle Bestellungen").Range("D53").Value
TextBoxE1 = CDbl(TextBoxD1) + CDbl(TextBoxC1)
End Sub

Typen unverträglich kommt ALS FEHLER

bitte um hilfe

17.03.2020 10:00:08

Tim

Hallo,
jetzt habe ich einen Fehler gemerkt. Ich muss ja die Zahl der Menge in eine Variable Stecken. Aber wie dann weiter ?

Private Sub UserForm_Initialize()
Dim Zahl As Integer
TextBoxA1.Text = Worksheets("Alle Bestellungen").Range("A53").Value
TextBoxB1.Text = Worksheets("Alle Bestellungen").Range("B53").Value
TextBoxC1.Value = Format(Worksheets("Alle Bestellungen").Range("C53"), "0.00 ")
Zahl = TextBoxD1.Value
TextBoxE1 = Format((CDbl(TextBoxC1.Value) * Zahl, "0.00 ")
End Sub

AW: Userform in euro

17.03.2020 10:02:22

Oberschlumpf

Hi Tim
zeig bitte mal per Upload eine Bsp-Datei mit dem Userform, deinem Code + Bsp-Datenzeilen in der Tabelle.
Ciao
Thorsten

AW: Userform in euro

17.03.2020 10:12:44

Tim

hallo
Leider darf ich nicht hochladen. Das nervt mich, sonst hätte ich es schon gemacht

Beliebteste Forumthreads (12 Monate)

Forumthread: Userform in euro

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread