Hi.
Falls Du das Problem in VBA lösen willst. Mit dem folgenden Code werden alle Ziffern in dem übergebenen String zu einem Wert zusammengebaut. Ein evtl. vorhandenes Komma wird beibehalten. Insofern darf das Produkt weder Zahlen noch Kommas enthalten.
Sub test()
num_wert (Sheets("Tabelle1").Range("A1").Value)
End Sub
Function num_wert(Zelle As String)
For i = 1 To Len(Zelle)
If IsNumeric(Mid(Zelle, i, 1)) Then
num_wert = num_wert & Mid(Zelle, i, 1)
Else
If Mid(Zelle, i, 1) = "," Then num_wert = num_wert & Mid(Zelle, i, 1)
End If
Next i
End Function
Schönen Gruß
Karsten
Karl schrieb am 03.01.2009 19:04:53:
Guten tag
und danke nochmal für die letzte antwort!
Ich habe folgendes problem ich gebe in eine Textbox mehrere sachen ein die werden dann in eine excel tabelle geschrieben.soweit so gut jetzt beginnt mein problem die eingaben enthalten denn namen des produkts und denn preis die excel tabelle kann nun die produkte aber nicht zusammen rechnen weil es sich an dem text teil aufhangt.hat jeman eine idee???
i = Worksheets("Food Name").Cells(2.1) & " " & Worksheets("Food Preis").Cells(2.1) & "€"
If TextBox1.TextLength > 0 Then
TextBox1.Value = TextBox1.Value & vbCrLf
End If
' Zeilenumbruch nur einfügen, wenn in der Box schon etwas steht
TextBox1.Value = TextBox1.Value & i
ActiveCell = i
ActiveCell.Offset(1, 0).Select |