Function CutKomma(Zahl As Single)
Dim i As Integer
'Ich weiss grad net wie man ne Zahl in nen STring konvertiert... vielleicht 
' weisst dus ^^
For i = 0 to Len(Zahl)
'Wenn die untersuchte Stelle "," ist Schleife beenden
If Mid$(Zahl, i , 1) = "," Then Exit For
Next i
If i = Len(Zahl) Then
 'Keine Kommazahl
 CutKomma = Zahl
Else
 CutKomma = Left$(Zahl, i) 'alles nach dem Komma abschneiden
End If
End Function

Press any key to continue or any other key to quit...