TextBox Komma Problem
24.06.2005 17:12:21
Schatti
vielleicht könnt ihr mir ja einen Tipp geben? und zwar gebe ich meine Daten über mehrere TExtboxen über ein Formular ein, d.h Zahle und eben auch Text. Nur, wenn ich z.b. in der Textbox 33,25 eingebe dann fügt er in der Tabelle den Wert 33 ein! Ich weiß icht wieso?
Option Explicit
Private Sub CommandButton1_Click()
Dim liZeile As Double
Dim lcTXTbox As Control
Dim liSpalte As Double
liZeile = 2
Do Until Sheets("We").Range("A" & liZeile) = ""
liZeile = liZeile + 1
Loop
liSpalte = 1
For Each lcTXTbox In Controls
If TypeName(lcTXTbox) = "TextBox" Then
If IsNumeric(lcTXTbox) = True And Not IsDate(lcTXTbox) = True Then
Sheets("We").Cells(liZeile, liSpalte).Value = Val(lcTXTbox)
Else
Sheets("We").Cells(liZeile, liSpalte).Value = lcTXTbox
End If
lcTXTbox = ""
liSpalte = liSpalte + 1
End If
Next
End Sub
Danke Gruß
Anzeige