dezimalstellen mit komma statt punkt
29.06.2007 10:58:14
samsplanet
ich benutze folgendes makro in einem formular:
Private Sub CommandButton4_Click()
Worksheets("Erfassung").Activate
TextBox1.Value = Range("A1")
TextBox2.Value = Range("A2")
TextBox3.Value = Range("A3")
End Sub
die werte aus den textboxen werden dann per folgendem makro in eine tabelle übertragen:
Private Sub CommandButton2_Click()
Worksheets("HT_FuRa").Activate
Dim LeereZelle As Range
Dim spalte As Variant, zeile As Variant
For Each LeereZelle In [D:D]
If IsEmpty(LeereZelle) Or LeereZelle.Value = 0 Then Exit For
Next
spalte = LeereZelle.Column
zeile = LeereZelle.Row
Cells(zeile + 7, spalte + 11) = TextBox1.Value
Cells(zeile + 8, spalte + 11) = TextBox2.Value
Cells(zeile + 9, spalte + 11) = TextBox3.Value
Worksheets("Erfassung").Activate
Unload Me
End Sub
das problem ist folgendes:
wenn die zellen aus welchen die daten übernommen werden sollen (hier A1, A2, A3) zahlen mit dezimalwerten (form-bsp: 2.3) enthalten, übernimmt das formular anstelle eines punktes (2.3) ein komma (2,3). der übernommene wert wird dann auch so übertragen und excel kann "nicht mehr rechnen" (ausgabe = #WERT).
was ist das problem? und wie kann es behoben werden?
bitte um eure kompetente hilfe.
grüsse und dank
sam