wie kann ich zwischen die 2 und das x einen Leerzeichnen einbauen, am Besten mit einem Makro, da ich eine große Tabelle habe.
Danke
Matthias
2x ACC 491-01-10
Sub Zahl_leer_x()
Dim changeCell, originalValue, newValue, x As Variant
For Each changeCell In Selection
originalValue = changeCell.Value
newValue = ""
For x = 1 To Len(originalValue) - 1
newValue = newValue & Mid(originalValue, x, 1)
If IsNumeric(Mid(originalValue, x, 1)) And _
Not IsNumeric(Mid(originalValue, x + 1, 1)) And _
Not Mid(originalValue, x + 1, 1) = " " Then
newValue = newValue & " "
End If
Next
newValue = newValue & Right(originalValue, 1)
changeCell.Value = newValue
Next
End Sub
Grüße, Orakel