Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellenteilen die Zweite

Zellenteilen die Zweite
10.05.2007 14:42:00
FR
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
Anzeige
AW: Zellenteilen die Zweite
10.05.2007 15: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

Anzeige

146 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige