Zellenteilen die Zweite

Forumthread: Zellenteilen die Zweite
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zellenteilen die Zweite

10.05.2007 16:42:00

Liebes Forum,
Ich würde mich freuen, wenn mir jemand bei diesem Problem weiterhelfen könnte.
Bin in VBA äußerst unversiert.
https://www.herber.de/bbs/user/42398.xls
Danke
Fab

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellenteilen die Zweite

10.05.2007 17:33:00

Reinhard

AW: Zellenteilen die Zweite

10.05.2007 17:33:00

Reinhard

Hallo Fab,
entweder Du setz ein Modul ein ... aber bei gar keinerAhnung ?


Sub Aufloesen()
Wert = Trim(Range("B8").Value)  ' Ausgangszelle
z = 0
For i = 1 To Len(Wert)  ' Schleife für jedes Zeichen
Zeichen = Mid(Wert, i, 1) ' Zeichen auslesen
If Zeichen = Chr(10) Then GoTo nächstesI  ' wenn Zeilenumbruch, dann ...
z = z + 1 ' ZeilenZähler hochzählen
Cells(12 + z, 2).Value = Zeichen  ' Zeichen eintragen - ggf. Zeile und Spalte ändern
nächstesI:  ' Sprungmarke
Next i
End Sub

oder Du versuchst es mit der Tabellenfunktion "Teil"
=TEIL($B$8;1;1) 1. Zelle
=TEIL($B$8;3;1) eine Zelle tiefer
=TEIL($B$8;5;1) eine Zelle tiefer
=TEIL($B$8;7;1) eine Zelle tiefer
Gruß Reinhard