Textbox
22.09.2004 12:57:30
Werner
habe ein Problem mit der Textbox 4.
Aus einer UF übertrage ich die Werte in ein Tabellenblatt siehe unten.
Das ist auch so in Ordnung. in der Textbox4 soll ein EUR Preis (1,23)in der Weise eingegeben werden und in der Zelle soll dann stehen (1,23).
So erscheint der Eintrag jetzt (1,00).
Wie muss ich die Zeile ändern, das der richtige Wert eingetragen wird.
Private Sub CommandButton1_Click()
Dim ZEingabe As Range 'Deklaration einer Variablen
'Zeiger auf Zelle B9 auf dem Blatt Eingabe setzen
Set ZEingabe = Sheets("Bestandsliste").[B9]
While ZEingabe <> "" 'Prüft ob Zelle leer
'wenn Zelle A3 belegt eine Zelle nach unten
Set ZEingabe = ZEingabe.Offset(1, 0)
Wend
'wert aus ComboBox1 in erste leere Zelle der Spalte B schreiben
'Maschinentyp
ZEingabe = Me.ComboBox1
'wert 1 Zelle nach rechts aus ComboBox2 schreiben Lagerort
ZEingabe.Offset(0, 1) = Me.ComboBox2
ZEingabe.Offset(0, 2) = Me.TextBox1
ZEingabe.Offset(0, 3) = Val(Me.TextBox2)
ZEingabe.Offset(0, 4) = Val(Me.TextBox3)
'wert 7 Zellen nach rechts aus ComboBox4 schreiben Preis
ZEingabe.Offset(0, 6) = Val(Me.TextBox4)
Me.ComboBox1.Clear
Me.ComboBox2.Clear
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
End Sub
Werner