Datum

Titel

19.04.2024 15:39:42

Exceltabelle daten per combobox zu word Datei

19.04.2024 14:04:05

PDF per VBA ausgeben - Seitenskalierung

19.04.2024 13:58:02

Set Worksheet geht im O365 aber im Excel 2016 nicht

19.04.2024 13:49:38

Per Kopfdruck als pdf speichern und Mail erstellen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1364to1368

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

transponieren + ergänzen + in eine Spalte

Forumthread: transponieren + ergänzen + in eine Spalte
8 Beiträge zu diesem Forumthread
Anzeige
303 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

05.06.2014 17:03:21

Andrea

Hallo,
für den Import in eine Datenbank müssen Tabellendaten transponiert und gleichzeitig durch Buchstaben (K oder D) und Zeichen (;) ergänzt werden. Im Ergebnis müssen alle Daten in einer Spalte untereinander stehen. Eine Excel Datei ist mit Ist- und Soll- Situation ist hochgelanden.
https://www.herber.de/bbs/user/91008.xls
Hoffentlich kann jemand helfen. Vielen Dank schon mal vorab.
Andrea

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: transponieren + ergänzen + in eine Spalte

05.06.2014 17:13:01

Rudi
das abschließende Semikolon wars, ...

05.06.2014 17:27:33

der
AW: das abschließende Semikolon wars, ...

06.06.2014 08:50:07

Andrea
AW: das abschließende Semikolon wars, ...

06.06.2014 10:05:58

Rudi
mit INDEX() ....

05.06.2014 17:19:23

der
AW: mit INDEX() ....

06.06.2014 08:58:57

Andrea
ein Schreibfehler meinerseits ...

06.06.2014 09:19:56

der
AW: ein Schreibfehler meinerseits ...

06.06.2014 10:37:08

Andrea

AW: transponieren + ergänzen + in eine Spalte

05.06.2014 17:13:01

Rudi

Hallo,

Arbeitsblatt 'Tabelle2'
	A	B	C	D	E	F	G	H	I	J
1	A1BBS4000	BQPHFIFX01	1	BQPHFIM03	1	BPQAC103	0,438			K;A1BBS4000
2	A1BBS4497	BQPHFIF24	1	BQPHFIM03	1	BPQAC103	0,385			D;BQPHFIFX01
3	A1BBS4751	BQPHFIFX01	1	BQPHFIM03	1	BPQAC103	0,514			D;1
4										D;BQPHFIM03
5										D;1
6										D;BPQAC103
7										D;0,438
8										K;A1BBS4497
9										D;BQPHFIF24

Zelle	Formel
J1	=WENN(REST(ZEILE();7)=1;"K;";"D;")& INDEX(A:G;AUFRUNDEN(ZEILE()/7;0);REST(ZEILE();7)+7*(REST(ZEILE();7)=0))

Gruß
Rudi

das abschließende Semikolon wars, ...

05.06.2014 17:27:33

der

Hallo Rudi,
... und das bei Dir noch fehlt ;-), was meine Bedenkzeit gefressen hat.
Übrigens: INDEX() arbeitet von Haus aus nur mit dem ganzzahligen Anteil einer Zahl.
Gruß Werner
.. , - ...

AW: das abschließende Semikolon wars, ...

06.06.2014 08:50:07

Andrea

Hallo Rudi,
das hat wunderbar geklappt, leider fehlt noch das abschließende Semikolon hinter jedem Feld, wie Werner schon angemerkt hat. Ich habe die Formel leider noch nicht verstanden, daher kann ich es mir nicht selbst herleiten. Gibt es einen Möglichkeit über Formel das Semikolon hinzuzufügen?
Grüße
Andrea

AW: das abschließende Semikolon wars, ...

06.06.2014 10:05:58

Rudi

Hallo,
einfach &";" hinten dran.
Bzw. mit Prüfung der Anzahl der Datensätze:

Arbeitsblatt 'Tabelle2'
	A	B	C	D	E	F	G	H	I	J
1	A1BBS4000	BQPHFIFX01	1	BQPHFIM03	1	BPQAC103	0,438			K;A1BBS4000;
2	A1BBS4497	BQPHFIF24	1	BQPHFIM03	1	BPQAC103	0,385			D;BQPHFIFX01;
3	A1BBS4751	BQPHFIFX01	1	BQPHFIM03	1	BPQAC103	0,514			D;1;
4										D;BQPHFIM03;
5										D;1;
6										D;BPQAC103;
7										D;0,438;
8										K;A1BBS4497;
9										D;BQPHFIF24;
10										D;1;
11										D;BQPHFIM03;
12										D;1;
13										D;BPQAC103;
14										D;0,385;
15										K;A1BBS4751;
16										D;BQPHFIFX01;
17										D;1;
18										D;BQPHFIM03;
19										D;1;
20										D;BPQAC103;
21										D;0,514;

Zelle	Formel
J1	=WENN(ZEILE()>ANZAHL2(A:G);"";WENN(REST(ZEILE();7)=1;"K;";"D;")& INDEX(A:G;AUFRUNDEN(ZEILE()/7;0);REST(ZEILE();7)+7*(REST(ZEILE();7)=0))& ";")

In A:G dürfen nur die Rohdaten stehen.
Gruß
Rudi

mit INDEX() ....

05.06.2014 17:19:23

der

Hallo Andrea,
... Formel nach unten kopieren:
Tabelle2

	A	B	C	D	E	F	G
1	IST
2
3	A1BBS4000	BQPHFIFX01	1	BQPHFIM03	1	BPQAC103	0,438
4	A1BBS4497	BQPHFIF24	1	BQPHFIM03	1	BPQAC103	0,385
5	A1BBS4751	BQPHFIFX01	1	BQPHFIM03	1	BPQAC103	0,514
6
7
8	SOLL
9
10	D;A1BBS4000;
11	D;BQPHFIFX01;
12	D;1;
13	D;BQPHFIM03;
14	D;1;
15	D;BPQAC103;
16	K:0,438;
17	D;A1BBS4497;
18	D;BQPHFIF24;
19	D;1;
20	D;BQPHFIM03;
21	D;1;
22	D;BPQAC103;
23	K:0,385;
24	D;A1BBS4751;
25	D;BQPHFIFX01;
26	D;1;
27	D;BQPHFIM03;
28	D;1;
29	D;BPQAC103;
30	K:0,514;
31

Formeln der Tabelle

Zelle	Formel
A10	=WENN(ZEILE(A1)>ANZAHL2($A$3:$G$7); "";WENN(REST(ZEILE(A1); 7)=0;"K:";"D;")&INDEX($A$3:$G$7;(ZEILE(A1)-1)/7+1;REST(ZEILE(A1)-1;7)+1)&";")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Werner
.. , - ...

AW: mit INDEX() ....

06.06.2014 08:58:57

Andrea

Hallo Werner,
habe deinen Vorschlag erst später gesehen, aber gleich ausprobiert. Vielen Dank! Das "K" kommt leider noch an falscher Stelle: es sollte immer vor den Informationen in Spalte A stehen (Schlüsselfeld). Ich bekomme es nicht hin....
Grüße
Andrea

ein Schreibfehler meinerseits ...

06.06.2014 09:19:56

der

Hallo Andrea,
... die Formel in A10 (nach unten kopieren) sollte so lauten:

	C
10	K:A1BBS4000;

Formeln der Tabelle

Zelle	Formel
C10	=WENN(ZEILE(A1)>ANZAHL2($A$3:$G$7); "";WENN(REST(ZEILE(A1); 7)=1;"K:";"D;")&INDEX($A$3:$G$7;(ZEILE(A1)-1)/7+1;REST(ZEILE(A1)-1;7)+1)&";")