Wenns das nicht war,
dann Rechts von der Spalte ne neue Spalte einfügen,
die Spalte (oder nur den Bereich) markieren und folgendes Makro ausführen:
Sub SplitA()
Dim c As Excel.Range
'
For Each c In Selection
c.Offset(, 1).NumberFormat = "#.##"
c.Offset(, 1).Value = Split(c.Value, Space$(1))
c.Offset(, 1).Value = c.Offset(, 1).Value * 1
Next c
End Sub
Bedingung:
Es wird angenommen, dass ein Leerzeichen (1,5 m) Zahl und Buchstabe trennt.
Gibt es mehrere Leerzeichen, dann sag bescheid.
|