AW: zellen auf Zeilen aufteilen
10.05.2007 14:50:13
Holger
Hallo Fab,
da hilft dir evtl. folgendes Makro.
Das Makro will von Dir die 1. Spalte des Quellbereichs wissen, also markiere in der Demotabelle A2:A3
Das Makro will von Dir die 1. Zelle des Zielbereichs wissen, also klicke in der Demotabelle auf A5.
Das Makro geht davon aus, dass alle Zellen gleich aufgebaut sind. Sollten Zellen mahl mehr/weniger Inhalte haben, müssen wir das Makro anpassen.
Holger
Sub aufteilen()
Set quelle = Application.InputBox(prompt:="welche Zellen sollen aufgeteilte werden (bitte nur 1. _
Spalte markieren)", Type:=8)
Set ziel = Application.InputBox(prompt:="markiere bitte die 1. Zelle, in die aufgeteilt werden _
soll", Type:=8)
zeile = ziel.Row
spalte = ziel.Column
For Each zelle In quelle
Cells(zeile, spalte) = Mid(zelle.Value, 1, 1)
Cells(zeile + 1, spalte) = Mid(zelle.Value, 3, 1)
Cells(zeile + 2, spalte) = Mid(zelle.Value, 5, 1)
Cells(zeile + 3, spalte) = Mid(zelle.Value, 7, 1)
zelle = Cells(zelle.Row, zelle.Column + 1)
Cells(zeile, spalte + 1) = Mid(zelle, 1, 1)
Cells(zeile + 1, spalte + 1) = Mid(zelle, 3, 1)
Cells(zeile + 2, spalte + 1) = Mid(zelle, 5, 1)
Cells(zeile + 3, spalte + 1) = Mid(zelle, 7, 1)
zeile = zeile + 4
Next
End Sub