Dann halt so:
Sub Schaltfläche1_Klicken()
Dim zelle, v
For Each zelle In ActiveWindow.Selection
v = zelle.Value
v = Replace(v, "+", " +")
v = Replace(v, "-", " -")
v = Replace(v, "/", " /")
v = Replace(v, "*", " *")
zelle.Value = Replace(v, " ", vbLf)
Next
End Sub
Funktioniert natürlich nur mit +,-,/ und * .
|