Zellinhalt splitten
29.10.2003 14:54:13
ewald
kann mir jemand sagen warum der Code nicht funktioniert?
Sub test()
Dim z As Range
For Each z In Selection
z.Offset(0, -1).Value = Left(z.Value, 1, 1)
Next z
End Sub
In der Zelle sind Zahlen von1 bis 99, Zahlen 1-9
sollen in der Zelle bleiben, Zahlen 10-99 sollen geteilt
werden und zwar rechtsbündig z.B. Zelle B1 hat 10 dann
soll 0 in B1 bleiben und 1 in die A1 versetzt werden.
Hat jemand einen Tipp?
Vielen Dank.
Grüße
10