Hallo Leute,
ich bin erst vor kurzem mit VBA angefangen, daher weiß ich noch nicht sonderlich viel. Ich habe mich an folgendem Problem versucht:
ich möchte gerne ein Makro schreiben, das den Inhalt einer bestimmten Zelle nimmt und jedes Zeichen dieser zelle auf bestimmte Zellen (fortlaufend in einer Reihe) verteilt. Meiner Meinung nach müsste der Code so passen, aber es scheint noch ein Fehler drin zu sein. Die gewünschten Zielzellen werden zwar fortlaufend gefüllt, allerdings nur mit dem letzten Zeichen des Worts (also das letzte Zeichen erscheit in allen Zellen). Hat jemand eine Idee wo der Fehler liegen könnte?
PS: Ich weiß, dass man es auch so in Excel machen kann, aber ich würde gerne das Makro dazu hinbekommen, denn es soll Teil eines größeren Programms werden.
Sub Test()
With ThisWorkbook.Sheets("Sheet3")
Dim i As Long
Dim x As Long
For i = 7 To 6 + Len(.Cells(2, 7))
For x = 1 To Len(.Cells(2, 7))
Cells(4, i).Value = Mid(.Cells(2, 7), x, 1)
Next
Next
End With
End Sub
Danke!
|