VBA: Auflistung erstellen

18.06.2013 20:22:04

WalterK

Hallo,
ich suche eine VBA-Lösung und habe dieses Mal die Beschreibung in der Excel-Datei angeführt. Anhand der Beispieltabelle ist die Erklärung leichter.
https://www.herber.de/bbs/user/85900.xls
Danke uns Servus, Walter

AW: Formel: Auflistung erstellen

18.06.2013 20:33:58

Christian

Hallo Walter,
kein VBA, nur mit Formeln:

	A	B	C	D	E	F	G	H	I	J
1
2	Name		Begriffe						Erläuterung:
3	Maier		Apfel						Maier	Apfel
4	Müller		Tomate						Maier	Tomate
5	Seeger		Gurke						Maier	Gurke
6	Brückle		Birne						Maier	Birne
7	Siemens								Müller	Apfel
8	Doppel								Müller	Tomate
9									Müller	Gurke
10									Müller	Birne
11									Seeger	Apfel
12									Seeger	Tomate
13									Seeger	Gurke
14									Seeger	Birne
15									Brückle	Apfel
16									Brückle	Tomate
17									Brückle	Gurke
18									Brückle	Birne
19									Siemens	Apfel
20									Siemens	Tomate
21									Siemens	Gurke
22									Siemens	Birne
23									Doppel	Apfel
24									Doppel	Tomate
25									Doppel	Gurke
26									Doppel	Birne

Formeln der Tabelle

Zelle	Formel
I3	=WENN(A3="";"";A3)
J3	=WENN(I3="";"";BEREICH.VERSCHIEBEN($C$3;WENN(REST(ZEILE(A1); ANZAHL2($C$3:$C$100))-1<0;ANZAHL2($C$3:$C$100)-1;REST(ZEILE(A1); ANZAHL2($C$3:$C$100))-1); 0))
I4	=WENN(ZEILE(A2)>ANZAHL2($A$3:$A$100)*ANZAHL2($C$3:$C$100); "";BEREICH.VERSCHIEBEN($A$3;WENN(ZEILE(A1)>=ANZAHL2(C3:C100); ABRUNDEN(ZEILE(A1)/ANZAHL2($C$3:$C$100); 0); ABRUNDEN(ZEILE(A1)/ANZAHL2($C$3:$C$100)-1;0)); 0))
J4	=WENN(I4="";"";BEREICH.VERSCHIEBEN($C$3;WENN(REST(ZEILE(A2); ANZAHL2($C$3:$C$100))-1<0;ANZAHL2($C$3:$C$100)-1;REST(ZEILE(A2); ANZAHL2($C$3:$C$100))-1); 0))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MfG Christian

AW: Formel: Auflistung erstellen

18.06.2013 20:55:19

WalterK

Hallo Christian,
da mich auch die Formellösung interessiert habe ich sie in meiner Mappe eingetragen, es kommt dabei aber nicht das richtige Ergebnis heraus.
Hier die Beispieldatei mit den Formeln:
https://www.herber.de/bbs/user/85901.xls
Danke jedenfalls und Servus, Walter

AW: Formel: Auflistung erstellen

18.06.2013 21:00:11

Christian

Hallo Walter,
in Deiner Tabelle waren noch Einträge unterhalb der Liste!
MfG Christian

AW: Formel: Auflistung erstellen

18.06.2013 21:34:46

WalterK

Hallo Christian,
Du hast natürlich recht, Deine Formeln funktionieren wie gewollt. Die Einträge unten in der Liste hatte ich glatt vergessen. Besten Dank!
Trotzdem bin ich noch an einer VBA-Lösung interessiert. Vielleicht findet sich ja noch jemand.
Servus, Walter

noch offen, VBA Lösung gesucht! owT.

19.06.2013 02:14:42

Christian

Du hast nicht auf Gerds VBA-Vorschlag, ...

19.06.2013 04:12:08

Luc:-?

…der bei deiner AW hier schon 1 Std vorlag, reagiert, Walter.
Vergiß die dämliche F5-Taste! Damit übersieht man leicht evtl AW-Seitenzweige. :-/
Morrn, Luc :-?

Pardon, Christian übersah Gerds Vorschlag! orT

19.06.2013 12:12:41

Luc:-?

Morrn, Luc :-?

einfacher

18.06.2013 20:53:12

Christian

Hallo Walter,
ohne BEREICH.VERSCHIEBEN:

	A	B	C	D	E	F	G	H	I	J
2	Name		Begriffe						Erläuterung:
3	Maier		Apfel						Maier	Apfel
4	Müller		Tomate						Maier	Tomate
5	Seeger		Gurke						Maier	Gurke
6	Brückle		Birne						Maier	Birne
7	Siemens		Kiwi						Maier	Kiwi
8	Doppel								Müller	Apfel
9	Einfach								Müller	Tomate
10									Müller	Gurke
11									Müller	Birne

Formeln der Tabelle

Zelle	Formel
I3	=WENN(ZEILE(A1)>(ANZAHL2($A$3:$A$100)*ANZAHL2($C$3:$C$100)); "";INDEX($A$3:$A$100;GANZZAHL((ZEILE(A1)-1)/ANZAHL2($C$3:$C$100))+1))
J3	=WENN(I3="";"";INDEX($C$3:$C$100;REST((ZEILE(A1)-1); ANZAHL2($C$3:$C$100))+1))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MfG Christian

AW: Auflistung per VBA erstellen

19.06.2013 01:15:12

Gerd

Servus Walter!
Sub Test() Dim Namen As Variant, Obst As Variant, Liste As Variant, i As Long, j As Long, k As Long Namen = Range("A3:A" & Range("A3").End(xlDown).Row).Value2 Obst = Range("C3:C" & Range("C3").End(xlDown).Row).Value2 ReDim Liste(1 To UBound(Namen) * UBound(Obst), 1 To 2) For k = LBound(Liste) To UBound(Liste) If k Mod UBound(Obst) = 1 Then i = i + 1 j = j + 1 If j = UBound(Obst) + 1 Then j = 1 Liste(k, 1) = Namen(i, 1) Liste(k, 2) = Obst(j, 1) Next Cells(3, 9).Resize(UBound(Liste), UBound(Liste, 2)) = Liste End Sub Gruß Gerd

Perfekt, besten Dank Gerd! Servus, Walter

19.06.2013 11:54:46

WalterK

VBA: Auflistung erstellen

Forumthread: VBA: Auflistung erstellen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

VBA: Auflistung erstellen

Forumthread: VBA: Auflistung erstellen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread