Eine "Buchstabenreihe" kreieren

Forumthread: Eine "Buchstabenreihe" kreieren

Timo

Hallo,
ich habe eine etwas "knifflige" Aufgabe.
In der beigefügten Excel Datei habe ich die Spalte A mit aufsteigenden Buchstaben, in der Spalte B einen jeweiligen Zahlenwert.
https://www.herber.de/bbs/user/62908.xls
Jetzt würde ich gern, wie in dem Excel-Beispiel bislang ohne Formel vorgefürt, in spalte C die jeweiligen Buchstaben sooft untereinander schreiben, entsprechend des Zahlenwertes in Spalte B. Falls also beim Buchstaben "A" eine entsprechende "4" in Spalte B steht, würde ich gern das "A" viermal untereinander stehen haben in Spalte C.
Dabei sollen allerdings keine Leerzellen entstehen.
Vielen Dank für Eure Hilfe schonmal im Voraus.
Timo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Eine "Buchstabenreihe" kreieren

03.07.2009 14:42:16

Rudi

Hallo,
in C1: =A1
ab C2: =WENN((ZÄHLENWENN($C$1:C1;C1)<SVERWEIS(C1;A:B;2;));C1;INDEX(A:A;VERGLEICH(C1;A:A;)+1))
Gruß
Rudi

bei mir erscheint überall "A" owT.

03.07.2009 19:12:59

Matthias

AW: bei mir nicht :-) owT

03.07.2009 19:21:05

robert

Tabellenblattname: Tabelle2

	A	B	C
1	a	2	a
2	d	7	a
3	f	6	d
4	g	1	d
5	h	3	d
6			d
7			d
8			d
9			d
10			f
11			f
12			f
13			f
14			f
15			f
16

Benutzte Formeln:
C1: =A1
C2: *=WENN((ZÄHLENWENN($C$1:C1;C1)<SVERWEIS(C1;A:B;2;));C1;INDEX(A:A;VERGLEICH(C1;A:A;)+1)) C3: =WENN((ZÄHLENWENN($C$1:C2;C2)<SVERWEIS(C2;A:B;2;));C2;INDEX(A:A;VERGLEICH(C2;A:A;)+1)) C4: =WENN((ZÄHLENWENN($C$1:C3;C3)<SVERWEIS(C3;A:B;2;));C3;INDEX(A:A;VERGLEICH(C3;A:A;)+1)) C5: =WENN((ZÄHLENWENN($C$1:C4;C4)<SVERWEIS(C4;A:B;2;));C4;INDEX(A:A;VERGLEICH(C4;A:A;)+1)) C6: =WENN((ZÄHLENWENN($C$1:C5;C5)<SVERWEIS(C5;A:B;2;));C5;INDEX(A:A;VERGLEICH(C5;A:A;)+1)) C7: =WENN((ZÄHLENWENN($C$1:C6;C6)<SVERWEIS(C6;A:B;2;));C6;INDEX(A:A;VERGLEICH(C6;A:A;)+1)) C8: =WENN((ZÄHLENWENN($C$1:C7;C7)<SVERWEIS(C7;A:B;2;));C7;INDEX(A:A;VERGLEICH(C7;A:A;)+1)) C9: =WENN((ZÄHLENWENN($C$1:C8;C8)<SVERWEIS(C8;A:B;2;));C8;INDEX(A:A;VERGLEICH(C8;A:A;)+1)) C10: =WENN((ZÄHLENWENN($C$1:C9;C9)<SVERWEIS(C9;A:B;2;));C9;INDEX(A:A;VERGLEICH(C9;A:A;)+1)) C11: =WENN((ZÄHLENWENN($C$1:C10;C10)<SVERWEIS(C10;A:B;2;));C10;INDEX(A:A;VERGLEICH(C10;A:A;)+1)) C12: =WENN((ZÄHLENWENN($C$1:C11;C11)<SVERWEIS(C11;A:B;2;));C11;INDEX(A:A;VERGLEICH(C11;A:A;)+1)) C13: =WENN((ZÄHLENWENN($C$1:C12;C12)<SVERWEIS(C12;A:B;2;));C12;INDEX(A:A;VERGLEICH(C12;A:A;)+1)) C14: =WENN((ZÄHLENWENN($C$1:C13;C13)<SVERWEIS(C13;A:B;2;));C13;INDEX(A:A;VERGLEICH(C13;A:A;)+1)) C15: =WENN((ZÄHLENWENN($C$1:C14;C14)<SVERWEIS(C14;A:B;2;));C14;INDEX(A:A;VERGLEICH(C14;A:A;)+1))

schau hier ...

04.07.2009 09:54:14

Matthias

Hallo Robert
https://www.herber.de/forum/messages/1086341.html
Gruß Matthias

Fehler gefunden "Berechnung stand auf manuell" owT

04.07.2009 09:51:57

Matthias

hier mal eine VBA-Variante ...

03.07.2009 19:15:15

Matthias

Hallo Timo
hier mal eine VBA-Lösung
Evtl. hilfts ja.
https://www.herber.de/bbs/user/62916.xls
Gruß Matthias

AW: noch eine VBA-Variante

03.07.2009 21:18:18

Gerd

Hallo!


Sub test()
Dim lngct As Long
Columns(3).ClearContents
For lngct = 1 To Cells(1, 1).End(xlDown).Row
Cells(IIf(IsEmpty(Cells(1, 3)), 1, Cells(1, 3).End(xlDown).Row + 1), 3).Resize(Cells(lngct, 2),  _
1) = Cells(lngct, 1)
Next
End Sub

Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Forumthread: Eine "Buchstabenreihe" kreieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Eine "Buchstabenreihe" kreieren

Forumthread: Eine "Buchstabenreihe" kreieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread