Office: Textvervielfältigung nach Matrix

Hallo zusammen,

ich weiß gerade nicht weiter.
Ich habe eine Datei mit einer großen Matrix.
Darin gibt es eine Titelspalte (Text) und vier unterschiedliche Zähler (A bis D).

Ich möchte für jeden einzelnen Zähler prüfen, wie hoch seine Zahl ist und entsprechend oft den Text aus dem Titel in eine neue, dem Zähler zugeordnete Spalte einfügen.
Ich hoffe zusammen mit dem Anhang wird mein Problem deutlich. Hier habe ich Händisch die Texte der ersten zwei Zeilen nach meinem Prinzip dupliziert.

Das ganze würde ich gerne mit Formeln machen. Wenn dafür Code notwendig ist, bin ich natürlich trotzdem für jeden Lösungsvorschlag dankbar.

 

Hallo,

ist auch mit Formel(n) möglich. Du solltest jedoch die XL-Version angeben, wo Du dies realisieren willst.

 

Hallo Werner,

meine Arbeitstabelle ist fast identisch, nur mit deutlich mehr Zeilen und einigen Spalten, die ich getrost ignorieren kann.
Die Tabelle darf ich aber leider nicht ohne weiteres rausgeben.
Meine Kollegen haben das ganze in anderen Projekten bislang komplett manuell eingetippt, aber ich hab gedacht, das muss doch auch automatisiert gehen.

 

Hallo,

ich hatte nach der XL-Version gefragt! Ich hab nämlich nur eine ältere. Da ist eine reine Formellösung wohl nur mit Hilfsspalten zu realisieren. Die aktuelleren XL-Versionen haben neuere leistungsfähige Funktionen, womit es auch ohne Hilfsspalte möglich sein könnte.
Alternativ käme evtl. auch eine PowerQuery (PQ) - Lösung in Betracht.

 

Was ist denn eine XL-Version? Ich habe angenommen, du wolltest meine originale Tabelle.

 

Hallo,

wenn Du z.B. Office 365 hast, dann ist die Version 365. Hast Du aber z.B. wie ich nur Office 2016 dann ist diese eben Version 2016.

 

Achso...
Wir haben hier in der Firma Office 365 - also dann Version 365

 

Hallo,

dann wird sicherlich noch ein anderer Helfer mit einer XL365 Version hier weiterhelfen.

 

Okay. Danke schon einmal bis hierher :)

 

Hallo,

das ist ein Teil deines Wunschergebnisses?

Tabelle1

	I	J	K	L
3	A	B	C	D
4		Beispieltext 1	Beispieltext 2	Beispieltext 1
5		Beispieltext 2	Beispieltext 2	Beispieltext 1
6		Beispieltext 2		Beispieltext 1

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8 [parse/HTML]

OK, nachdem ich deinen Text noch mal gelesen habe, hat sich das beantwortet. Eine Lösung mit VBA könnte ich dazu anbieten, darf es so etwas sein? Ansonsten musst du auf unsere Formelspezialisten warten.

 

Moin

Code:

=LET(
a;FILTER($A4:$A13;C4:C13<>"");
b;FILTER(C4:C13;C4:C13<>"");
c;WIEDERHOLEN(a&ZEICHEN(10);+b);
d;TEXTVERKETTEN("";WAHR;c);
e;TEXTTEILEN(d;;ZEICHEN(10));
e)

PFerdefuß: Am Ende hängt eine leere Zeile. Aber falls nötig bekommt man die auch noch weg.

 

Hi,

wenn deine Originalmappe genau so aufgebaut ist wie deine hochgeladene Mappe dann kannst du es mit folgendem Makro realisieren:

Code:

Sub NachAnzahl()
    Dim lngZeile As Long
    Dim lngErste As Long
    Dim intSpalte As Integer
    For lngZeile = 4 To Cells(Rows.Count, 1).End(xlUp).Row
        For intSpalte = 3 To 6
            If Cells(lngZeile, intSpalte) <> "" Then
                lngErste = Cells(Rows.Count, intSpalte + 6).End(xlUp).Row + 1
                Cells(lngErste, intSpalte + 6).Resize(Cells(lngZeile, intSpalte).Value, 1) = Cells(lngZeile, 1)
            End If
        Next intSpalte
    Next lngZeile
End Sub

---

 

Hallo Klaus-Dieter,

Du kannst sicherlich eine einfache VBA-Lösung erstellen. Aber ich bin auch überzeugt, daß die XL365-Formel-Cracks eine hilfsspaltenfreie Formellösung aufstellen werden, die einfacher sein wird, als meine 2-Formellösung, die je Spalte eine zusätzlichen Hilfsspalte (hier z.B ab Spalte N) benötigt.

Nachstehende Formeln N3 und danach Formel I4 weit genug nach rechts und unten ziehend kopieren:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
3			Anzahl A	Anzahl B	Anzahl C	Anzahl D			A	B	C	D		0	0	0	0
4	Beispieltext 1			1		3			Beispieltext 3	Beispieltext 1	Beispieltext 2	Beispieltext 1		1	1	2	3
5	Beispieltext 2			1	2				Beispieltext 6	Beispieltext 2	Beispieltext 2	Beispieltext 1		4	2	5	5
6	Beispieltext 3		1	1	3				Beispieltext 6	Beispieltext 3	Beispieltext 3	Beispieltext 1		5	3	6	6
7	Beispieltext 4			4		2			Beispieltext 6	Beispieltext 4	Beispieltext 3	Beispieltext 4			7	7	7
8	Beispieltext 5			1	1	1			Beispieltext 9	Beispieltext 4	Beispieltext 3	Beispieltext 4			8		9
9	Beispieltext 6		3			1				Beispieltext 4	Beispieltext 5	Beispieltext 5			11
10	Beispieltext 7			3						Beispieltext 4	Beispieltext 8	Beispieltext 6			12
11	Beispieltext 8				1					Beispieltext 5		Beispieltext 10
12	Beispieltext 9		1	1						Beispieltext 7		Beispieltext 10
13	Beispieltext 10					2				Beispieltext 7
14										Beispieltext 7
15										Beispieltext 9
16

Zelle	Formel
N3	=WENN(ZEILE(C1)=1;0;WENNFEHLER(INDEX(C:C;AGGREGAT(15;6;ZEILE(C$4:C$99)/(C$4:C$99>0);ZEILE(C1)-1))+N2;""))
I4	=WENNFEHLER(INDEX($A:$A;AGGREGAT(15;6;AGGREGAT(15;6;ZEILE(C$4:C$99)/(C$4:C$99>0);ZEILE(C$1:C$95));VERGLEICH(ZEILE(C1)-1;N$3:N$99)));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

 

Hallo Werner,

so hatte ich ja geschrieben, da seitens des TE noch keine Antwort kam, hatte ich noch nichts erstellt. Inzwischen hat Karin aber eine schöne VBA-Lösung eingestellt.

 

Hallo Detlef,

PHP:

e;TEXTTEILEN(d;;ZEICHEN(10);1);
e)