Zelleintrag verteilen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Zelleintrag verteilen
von: Michael
Geschrieben am: 06.06.2002 - 17:14:50

Hallo
Ist es irgendwie möglich, wenn ich in einer Zelle einen Namen stehen habe, das dieser per Formel oder Makro auseinander genommen wird und in verschiedene Zellen eigetragen wird.
Also z.B. in Zelle A1 steht "Excel-Forum" , dann soll in
Zelle A2 das E in
Zelle A3 das x in
Zelle A4 das c usw. stehen.

nach oben   nach unten

Re: Zelleintrag verteilen
von: Joachim L.
Geschrieben am: 06.06.2002 - 17:39:59

Hallo Michael,

probier es mit folgendem Makro. Nur mal schnell gemacht. Kann natürlich noch verbessert/verfeinert werden.

Sub Verteilen()
Dim lngLaenge As Long

lngLaenge = Len(Cells(1, 1).Value)

For lngLaenge = 1 To lngLaenge
Cells(lngLaenge + 1, 1).Value = Mid(Cells(1, 1), lngLaenge, [1])
Next lngLaenge

End Sub

Gruß Joachim


nach oben   nach unten

Re: Klappt nicht
von: Michael
Geschrieben am: 06.06.2002 - 19:40:08

Irgendwie klappt das nicht.
Mit Makros hab ichs auch noch nicht so ganz.

nach oben   nach unten

Re: Zelleintrag verteilen
von: WernerB.
Geschrieben am: 06.06.2002 - 20:27:23

Hallo Michael,

Formeln in
A2: =LINKS(A1;1)
A3: =TEIL(A1;2;1)
A4: =TEIL(A1;3;1)
usw.

Viel Erfolg wünscht
WernerB.

nach oben   nach unten

Re: Zelleintrag verteilen
von: PeterW
Geschrieben am: 06.06.2002 - 20:29:29

Hallo Michael,

mit folgendem Code sollte es funktionieren:

Gruß
Peter

nach oben   nach unten

Re: Zelleintrag verteilen
von: PeterW
Geschrieben am: 06.06.2002 - 20:47:02

Sorry, kleiner Fehler - große Wirkung.

Richtig ist es natürlich

Peter


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zelleintrag verteilen"