Sub RabatteAlsZahl()
Dim LRow As Long
Dim i As Integer
Dim Start1 As Integer
Dim Start2 As Integer
Dim Anz As Integer
Dim rngZelle As Range
Dim Rabatt1 As String
Dim Rabatt2 As String
LRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each rngZelle In Range("R2:R" & LRow)
Anz = Len(rngZelle) - Len(Replace(rngZelle, "/", ""))
Rabatt1 = ""
Rabatt2 = ""
For i = 1 To Anz
Start1 = WorksheetFunction.Find("#", WorksheetFunction.Substitute(rngZelle, "-", "#", i))
Rabatt1 = Rabatt1 & Mid(rngZelle, Start1, 3)
Start2 = WorksheetFunction.Find("#", WorksheetFunction.Substitute(rngZelle, "/", "#", i))
Rabatt2 = Rabatt2 & Mid(rngZelle, Start2 + 2, 6)
Rabatt2 = Replace(Rabatt2, ",", ".")
Rabatt2 = Rabatt2
Next i
rngZelle.Offset(0, 1) = Rabatt1 + Rabatt2
Next rngZelle
End Sub