problem mit text box ausgabe
04.12.2003 16:15:20
martin
ich hab ein kleines problem
ich möchte aus einem blatt artikeldatei werte aufrufen in eine textbox schreiben von dort in ein anderes blatt schreiben. das alles klappt ohne probleme wenn ich zb 26 einlese schreibt das makro 26,00 in die rechnung wenn ich zb 2,31 einlese kommt 2,31 in die rechung wenn ich jedoch 6,50 einlese kommt in die rechnung 6,5
ich würde aber gerne 6,50 stehen haben
das ist mein code fürs eintragen in die rechnung
Private Sub cbmArtikelEintragen_click()
Worksheets("Rechnung").Activate
With Controls("txtPreis")
If IsNumeric(.Text) = False Then
MsgBox ("Nur Zahlen eingeben")
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
Exit Sub
End If
End With
ActiveSheet.Cells(ActiveCell.Row, 2).Value = Me.cboBez.Value
ActiveSheet.Unprotect (1234)
ActiveSheet.Cells(ActiveCell.Row, 3).Value = Me.txtPreis.Value
ActiveSheet.Cells(ActiveCell.Row, 3).NumberFormat = _
"_ [$] * #,##0.00__ ;_ [$] * -#,##0.00__ ;_ [$] * ""-""??__ ;_ @__ "
ActiveSheet.Protect (1234)
ActiveSheet.Cells(ActiveCell.Row, 1).Value = Me.txtMenge.Value
ActiveSheet.Cells(ActiveCell.Row + 1, 1).Activate
Unload Me
Worksheets("Rechnung").Activate
End Sub
könnt ihr mir helfen ?
vielen dank