Zelleninhalt aufteilen in einzelene Zellen
24.11.2003 11:17:07
ewald
mit dem nachfolgenden VBA-Makro kann ich ein- bzw. zweistellige
Zahlen rechtsbündig teilen.
Was muss geändert werden damit auch dreistellige Zahlen z. B 999
geteilt werden können?
Sub teil()
Dim z As Range
Dim x As Integer
For Each z In Selection
x = z.Value
z.Value = CInt(Right(z.Value, 1))
If Int(x / 10) <> 0 Then z.Offset(0, -1).Value = Int(x / 10)
Next z
End Sub
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße
Anzeige