Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Code Textbox
#1
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
Antworten Top
#2
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:
  • Thomas78
Antworten Top
#3
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
Antworten Top
#4
Ja, bei der ersten Version hat sich ein Flüchtigkeitsfehler eingeschlichen. Blush
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:
  • Thomas78
Antworten Top
#5
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
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
[-] Folgende(r) 1 Nutzer sagt Danke an snb für diesen Beitrag:
  • Thomas78
Antworten Top
#6
Thumbs Down 
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.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste