Public Function ConvertToZahl(zahl As String) As String
    If Left(Right(zahl, 3), 1) = "," Or Left(Right(zahl, 3), 1) = "." Then
        zahl = Replace(zahl, ".", "")
        zahl = Replace(zahl, ",", "")
        zahl = Format(zahl / 100, "###,##0.00")
    End If
    ConvertToZahl = zahl
End Function