'Regionale Einstellungen anpassen
'Dezimaltrennzeichen: "."
'Zifferngruppierung : ","
 
 
Sub mischi()
    Dim t
    Dim z As Double
 
    t = "1,278.3000" < ----Teststring
  Debug.Print t
    t = Trim$(t)
 
  Debug.Print t
 
    If Len(t) Then
    t = Replace(t, ",", "")
        If IsNumeric(t) Then
 
   Debug.Print t
 
            t = Format(t, "0.00")
 
   Debug.Print t
 
            z = Val(t)
            Cells(2, 2) = t
            Cells(2, 3) = z
        Else
            Cells(2, 2) = "NoNum"
        End If
    Else
            Cells(2, 2) = "Leer"
    End If
 
End Sub