Sub ersetze()
Dim variable As String
Dim i As Integer
i = 1
variable = Cells(i, 1)
Do Until variable = ""
    variable = Left(variable, InStr(1, variable, "\", vbBinaryCompare))
    variable = Replace(variable, "-", "", , , vbBinaryCompare)
    variable = Replace(variable, "\", "", , , vbBinaryCompare)
    variable = Replace(variable, " ", "", , , vbBinaryCompare)
    Cells(i, 1) = variable
    i = i + 1
    variable = Cells(i, 1)
Loop
End Sub

Nichts ist umsonst!