Zelleninhalt aufteilen in einzelene Zellen
18.02.2004 09:58:23
edie
mit dem nachfolgenden Makro teile ich Zahl in der Zelle in die
benachbarte Zellen auf, z.B. die Zahl 12,35 in der Zelle D1
wird so aufgeteilt: in C1 eine 1, in D1 eine 2, in E1 die ,3 und
in F1 steht dann die 5. Soweit alles OKey.
Mein Problem: Bei der Eingabe z.B. der Zahl 10,00 werden die Nullen
nicht in den entsprechende Zellen verteilt.
Ohne Selection.NumberFormat = "0" funktioniert es auch nicht.
Wie kann ich das erreichen, dass die Nullen auch in benachbarte Zellen
eingetragen werden?
Sub test()
Dim z As Range
For Each z In Selection
On Error Resume Next
Selection.NumberFormat = "0"
i = InStr(1, z.Value, ",")
On Error Resume Next
z.Offset(0, 2).Value = Mid(z.Value, i + 2, 1)
z.Offset(0, 1).Value = Mid(z.Value, i, 2)
z.Offset(0, -1).Value = Mid(z.Value, i - 2, 1)
z.Offset(0, 0).Value = Mid(z.Value, i - 1, 1)
Next z
End Sub
Hat jemand eine Idee?
Vielen dank im Voraus
Grüße
Anzeige