Wert in Zahl umwandeln

Sub test1()
Dim End_Ber As Long
Dim in_wert1 As Double
Dim in_wert2 As Variant
Dim bez As String
'Ende der Tabelle ermitteln
End_Ber = Sheets(1).Cells(Cells.Rows.Count, 2).End(xlUp).Row
For i = 1 To End_Ber
Range("B1").Select
in_wert1 = 0
ActiveCell.Offset(i, 0).Range("A1").Select
in_wert1 = Val(ActiveCell.Value)
in_wert2 = ActiveCell.Value
If in_wert1 > 0 Then
ActiveCell.Offset(0, -1).Range("A1").Select
bez = ActiveCell.Value
ActiveCell.Offset(0, 1).Range("A1").Select
If InStr(1, bez, "Base", 0) = 0 Then
ActiveCell.FormulaR1C1 = in_wert2 / 100
End If
End If
Next i
End Sub