Zelleninhalt aufteilen in einzelene Zellen
21.11.2003 09:47:58
ewald
mit dem nachfolgenden VBA-Makro wird der Inhalt der Zelle
geteilt.
Mein Problem: Habe unterschiedlich lange Zahlen plus einen Buschtaden,
die geteilt werde sollen
z.Value = Mid(z.Value, 1, 1) funktioniert für z. B 1a
z.Value = Mid(z.Value, 1, 2) funktioniert für z. B 11a
Sub t()
Dim z As Range
For Each z In Selection
z.Offset(0, 3).Value = Right(z.Value, 1)
z.Value = Mid(z.Value, 1, 2)
z.Value = Mid(z.Value, 1, 1)
Next z
End
Sub
Wie kann man das flexibel gestalten?
Vielen Dank im Voraus.
Grüße
Anzeige