Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilenumbruch in einzelne Zellen

Zeilenumbruch in einzelne Zellen
Larissa
Hallo,
wie bekomme ich es mit einem Makro oder einer Formel hin, dass Werte die in einer Zelle mit Zeilenumbrüchen eingetragen sind, untereinander in einzelne Zellen zu übertragen werden?
Dieses ist z.B. ein Eintrag in einer Zelle A1:
"Montag
Dienstag
Mittwoch"
und soll übertragen werden in:
B1: Montag
B2: Dienstag
B3: Mittwoch
Vielen Dank vorab für Eure Hilfe.
Gruß, Larissa

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
So z. B.
11.10.2009 11:23:20
Backowe
Hallo Larissa,
 AB
1Montag
Dienstag
Mittwoch
Donnerstag
Freitag
Samstag
Sonntag
Montag
2 Dienstag
3 Mittwoch
4 Donnerstag
5 Freitag
6 Samstag
7 Sonntag

Formeln der Tabelle
ZelleFormel
B1=zelletrennen($A$1;ZEILE(); ZEICHEN(10))
B2=zelletrennen($A$1;ZEILE(); ZEICHEN(10))
B3=zelletrennen($A$1;ZEILE(); ZEICHEN(10))
B4=zelletrennen($A$1;ZEILE(); ZEICHEN(10))
B5=zelletrennen($A$1;ZEILE(); ZEICHEN(10))
B6=zelletrennen($A$1;ZEILE(); ZEICHEN(10))
B7=zelletrennen($A$1;ZEILE(); ZEICHEN(10))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Function ZelleTrennen(Zelle As Range, Position As Integer, Trenner As String) Dim Ergebnis As Variant Ergebnis = Split(Zelle, Trenner) ZelleTrennen = Ergebnis(Position - 1) End Function Gruß Jürgen
Anzeige
AW: Zeilenumbruch in einzelne Zellen
11.10.2009 11:34:43
Gerd
Hallo Larissa!
Sub b()
Dim V As Variant
V = Split(Cells(1, 1).Value, vbLf)
Cells(1, 2).Resize(UBound(V) + 1, 1) = Application.Transpose(V)
End Sub
Gruß Gerd
Vielen Dank für die Auswahl von Lösungen
11.10.2009 12:31:32
Lösungen
ich habe die Makroversion genommen.
Gruß, Larissa

351 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige