Option Explicit
Sub String_umwandeln()
Dim inhalt As String
Dim komma As Integer
Dim zahl As String
Dim wert As String
Dim gesplittet
inhalt = "61,50 Mio. €"
gesplittet = Split(Trim(inhalt), " ")
wert = gesplittet(1)
zahl = gesplittet(0)
komma = InStr(1, zahl, ",")
Select Case wert
Case "Tsd."
If komma > 0 Then
zahl = Replace(zahl, ",", "") & "000"
zahl = Left(zahl, komma + 3 - 1) & "," & Right(zahl, Len(zahl) - komma - 3 + 1)
Else
zahl = zahl & "000"
End If
Case "Mio."
If komma > 0 Then
zahl = Replace(zahl, ",", "") & "000000"
zahl = Left(zahl, komma + 6 - 1) & "," & Right(zahl, Len(zahl) - komma - 6 + 1)
Else
zahl = zahl & "000000"
End If
Case Else
End Select
MsgBox zahl
End Sub