Microsoft Excel

Herbers Excel/VBA-Archiv

Zelleintrag verteilen



Excel-Version: 8.0 (Office 97)

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.

  

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


  

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.

  

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.

  

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

Hallo Michael,

mit folgendem Code sollte es funktionieren:


Sub TeilString()
Dim zaehl As Long

For zaehl = 1 To Len(Cells(1, 1))
Cells(2, zaehl) = Mid(Cells(1, 1), zaehl, 1)
Next
End Sub

Gruß
Peter

  

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

Sorry, kleiner Fehler - große Wirkung.

Richtig ist es natürlich


Sub TeilString()
Dim zaehl As Long

For zaehl = 1 To Len(Cells(1, 1))
Cells(1, zaehl + 1) = Mid(Cells(1, 1), zaehl, 1)
Next
End Sub

Peter


 

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