Daten aus einer Zelle auf andere verteilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim objZelle As Range Dim X As Variant For Each objZelle In ActiveSheet.UsedRange.Columns(1).Cells 'Bereich ggf. anpassen If Not IsEmpty(objZelle) Then X = Split(objZelle.Value, vbLf) objZelle.Offset(0, 1).Resize(1, UBound(X) + 1) = X End If Next

…Dennis;
1. statt Rudis Vorgehen, für das man übrigens auch die benannte Fml MDaten …
=AUSWERTEN("{"""&WECHSELN(A6;ZEICHEN(10);""".""")&"""}")
…mit der mehrzelligen (hier über 4 Zellen) MatrixFml {=MDaten} verwenden könnte, kann auch mit der ZellFml =WECHSELN(A6;ZEICHEN(10);"|") ein Text erzeugt wdn, der, als nur-Wert gespeichert, mit Befehl lt Menü Daten - Text in Spalten über die jeweils erforderliche Spaltenzahl verteilt wdn kann;
2. Statt Gerds SubProzedur kann man auch eine UDF (auf gleicher VBA-Basis) verwenden, die in einer mehrzelligen MatrixFml ebenfalls die Einzelwerte über Spalten verteilt:
{=VSplit(A6;ZEICHEN(10))}
Der Code der verwendeten UDF ist u.a. hier zu finden.
Falls kein zusätzlicher Platz zV steht bzw der des OriginalTextes mitverwendet wdn soll, könnte im 1.Fall (ErsetzungsFml für Text in Spalten) der OriginalText mit dem FmlErgebnisText überschrieben, aber auch, ebenso wie im 2.Fall, die Fml um den OriginalText „herumgelegt“ wdn (und, nur im 1.Fall erforderlich, deren Ergebnis als nur Wert gespeichert wdn). Dafür könnte auch eine SubProzedur geschrieben wdn.
Gruß, Luc :-?
Besser informiert mit …

…möglichkeiten für AddIns im internen Betrieb! Dateien, die eine Firma/Institution verlassen, sollten nur in Ausnahmefällen Fmln enthalten, nämlich, wenn Daten erfragt wdn sollen und das Ergebnis dem Eintragenden gleich angezeigt wdn muss/soll. Alles Andere dürfte in den meisten Fällen ein Verstoß gg die Sicherheitsbestimmungen der Firma/Institution sein.
Wenn du solche einfachen Grundsätze nicht kennst, hast du keinen Anspruch darauf, ernst genommen zu wdn!
Außerdem scheinst du aus dem kürzlichen Knatsch auch nichts gelernt zu haben. Und dieses Thema, noch dazu in Form eines ergänzenden Hinweises, ist ja wohl kaum für derart blöde Attacken geeignet. Einmal mehr drängt sich der Verdacht auf, dass du unbedingt deinen Senf auch hierbei dazugeben musst, obwohl hier zu AddIns schon des öfteren nachgefragt und geschrieben wurde. Im Internet wdn solche auch angeboten, auch von MS.
Damit sollte eigentlich jedem klar sein, dass das WerkzeugInventar auf allen, mit einer Datei befassten PCs das Gleiche sein muss. Das, was du hier unterschwellig zu lanzieren suchst, ist also ein ScheinArgument. Denn, wenn dir ein unbedingt benötigtes SpezialWerkzeug fehlt, kannst du nicht mal ein Fahrrad reparieren.
Du hättest es bei deinem sinnvollen anderen BT in diesem Thread belassen sollen (→ Si tacuisses philosophus mansisses!)…
Luc :-?

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
6	1PK(I)89 2HT(O)95 9GS(M)78 1ZZ(0)88	1PK(I)89	1PK(I)89	2HT(O)95	9GS(M)78	1ZZ(0)88

Zelle	Formel
B6	=INDEX(x;SPALTE()-2)
C6	=INDEX(x;SPALTE()-2)
D6	=INDEX(x;SPALTE()-2)
E6	=INDEX(x;SPALTE()-2)
F6	=INDEX(x;SPALTE()-2)

Daten aus einer Zelle auf andere verteilen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Name	Bezug
x	=AUSWERTEN("{""" & WECHSELN(INDIREKT("ZS1";0);ZEICHEN(10);""";""") & """}")

Daten aus einer Zelle auf andere verteilen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread