Code Textbox

[Thomas78]

Hallo liebes Forum,

ich brauche kurz eure Hilfe bzgl. eines Codes in Userform:

Mit folgendem Code hole ich mir die Werte der Textboxen entsprechend der Combobox.

Code:

Private Sub ComboBox1_Change()

Dim ZelleAE As Range

Set ZelleAE = Sheets("Artikel").Range("B4:F400").Find(What:=Me.ComboBox1.Value, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

Me.TextBox1.Value = ZelleAE.Offset(0, 1).Value
Me.TextBox2.Value = ZelleAE.Offset(0, 2).Value
Me.TextBox3.Value = ZelleAE.Offset(0, 3).Value

End Sub

Wie muss ich den Code in TextBox2 ändern, damit es mir Eurowerte überträgt (also 20,-- € statt 20)

Vielen Dank 

Thomas

[RPP63]

Moin Thomas!

Code:

Me.TextBox2.Value = Format(ZelleAE.Offset(0, 2).Value, "#,##0,00 €")

Alternativ müsste auch dies funktionieren:

Code:

Me.TextBox2.Value = ZelleAE.Offset(0, 2).Text

Aber Achtung!
Du hast jetzt einen Text und KEIN Zahlenformat in der TB.
Willst Du ihn ändern und wieder in die Tabelle zurückschreiben, geht das so:

Code:

ZelleAE.Offset(0, 2).Value = CDbl(Left(TextBox2, Len(TextBox2) - 2))

Gruß Ralf

[Thomas78]

Hallo Ralf,

danke für die schnelle Hilfe !

Das mit dem Text ist kein Problem ich will mir nur Preisschilder ausdrucken lassen.

Bei der ersten Version zeigt es mir jetzt in TextBox2 020 € an. Perfekt wäre wenn es mir 20,00 € anzeigen würde.
Die 2. Version funktioniert perfekt.


Danke

Thomas

[RPP63]

Ja, bei der ersten Version hat sich ein Flüchtigkeitsfehler eingeschlichen.
Du musst englische Trennzeichen verwenden:
Komma für der Tausender, Punkt für den Dezimal-Separator:

Code:

Me.TextBox2.Value = Format(ZelleAE.Offset(0, 2).Value, "#,##0.00 €")

Gruß Ralf

[snb]

Noch etwas dazu:

Code:

Private Sub ComboBox1_Change()
   Sheets("Artikel").Range("B4:F400").Find(ComboBox1).resize(,3)=array(Textbox1,format(Textbox2,"0.00 €"),textbox3)
End Sub

[Thomas78]

Danke,

das probier ich auch noch aus.

Thomas

EDIT : Uh da läuft bei mir was schief. Mit dem Code löscht es mir die ausgewählten Artikel der Combobox aus meiner Tabelle.