Liste automatisch erweitern

[basti1912]

Hallo Excel-Freunde, 

ich würde gern eine Liste erstellen, welche sich automatisch erweitert sobald ich in A1 einen Namen eingegeben habe. Sprich in A1 gebe ich was ein und in B1 erscheint der Name, sobald ich auf Enter drücke und A1 ist wieder leer. Der nächsten Name der in A1 eingegebene wir sollte dann in B2 erscheinen... usw.

Leider habe ich nicht mal einen Ansatz gefunden, wie das funktionieren könnte, evtl über VBA!? 

Vielen Dank im Voraus. 

VG Basti

[GMG-CC]

Moin Basti,

das geht NUR über VBA.
Aber warum nimmst du nicht eine Intelligente Tabelle, das ist doch einfach effektiver ...

[basti1912]

Danke für die schnelle Antwort! 

Das war für mich bisher noch kein Begriff! Da muss ich erst mal schauen, wie das funktioniert...

gruss

[GMG-CC]

Also,
in A1 kommt eine Überschrift (zwingend).
Dann schreibst du in A2 einen Namen

Damit ist die Basis gelegt. Nun in A1 oder A2 klicken und Strg+T oder Strg+L
Im Abfragefenster darauf achten, dass die Tabelle Überschriften hat (Häkchen).
Und nun hast du einen Automatismus: In den letzten Eintrag klicken und [Tab], schon wird eine neue Zeile erstellt und du kannst den namen eingeben. Das ganze Gebilde hat dann auch einen Bereichs-Namen, der sich automatisch anpasst.

Der riesige Vorteil: Wenn in B2 oder einer anderen Zelle der Liste eine Formel steht, wird diese automatisch in die neue Zeile übernommen. Und es gibt da noch einige andere Vorteile ...

[basti1912]

Vielen Dank für den Ansatz! Ich schaue mir das an, wenn ich zuhause bin. Und teste das mal... 

Bis dahin, noch nen schönen Abend! ;)

[atilla]

Hallo Basti,

du fragtest eventuell VBA?

folgenden Code in das Codemodul der Tabelle in der es wirken soll:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "A1" Then
   If Target <> "" Then
     Application.EnableEvents = False
     If Range("B1") = "" Then
       Cells(1, 2) = Target
       Target = ""
     Else
       Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = Target
       Target = ""
     End If
     Target.Select
     Application.EnableEvents = True
   End If
 End If
End Sub

Nach Änderung und verlassen der Zelle A1 wird der Inhalt in die ertse freie Zelle der Spalte B eingetragen
und die Zelle A1 zur erneuten Eingabe ausgewählt. Dabei ist es egal, ob mit Enter Tab oder der Maus die Zelle nach Änderung verlassen wird.

[basti1912]

Hallo Günther, 

ich habe mal geschaut, leider passt das nicht für meine Zwecke. Trotzdem vielen Dank für deine Mühen. 

Hallo Atilla,

das war genau das was ich gesucht habe. Vielen Dank für die Hilfe. 



Nun würde ich das gern erweitern, und die Namen welche untereinander geschrieben werden zählen. Kann ich in C:C nun jeden Namen der in B:B steht 1x rausfiltern? Sprich, in B:B steht 5x Tim, 6x Max, 10 Paul, usw.; dann soll in C:C jeweils 1x Tim, 1x Max, 1x Paul, usw. stehen. 

Geht so etwas? Vielen Dank schonmal. ;)

[Cua]

Nun würde ich das gern erweitern, und die Namen welche untereinander geschrieben werden zählen. Kann ich in C:C nun jeden Namen der in B:B steht 1x rausfiltern? Sprich, in B:B steht 5x Tim, 6x Max, 10 Paul, usw.; dann soll in C:C jeweils 1x Tim, 1x Max, 1x Paul, usw. stehen. 

Geht so etwas? Vielen Dank schonmal. ;)

Guck mal hier:
Da ist genau das, was du suchst schon gelöst
http://www.clever-excel-forum.de/Thread-...B-ausgeben

[WillWissen]

Moin,

Kann ich in C:C nun jeden Namen der in B:B steht 1x rausfiltern? Sprich, in B:B steht 5x Tim, 6x Max, 10 Paul, usw.; dann soll in C:C jeweils 1x Tim, 1x Max, 1x Paul, usw. stehen.

hier mal zwei Formellösungen.

Mit Matrixformel und einer Hilfsspalte (kann einfach ausgeblendet werden)

Tabelle2

	B	C	D
1	Namen	HSp.	Matrixformel
2	Klaus	x	Klaus
3	Klaus		Max
4	Max	x	Peter
5	Peter	x	Sabine
6	Sabine	x	Sonja
7	Max
8	Klaus
9	Sabine
10	Sabine
11	Sonja	x

Formeln der Tabelle

Zelle Formel C2 =WENN(ZÄHLENWENN($B$2:$B2;B2)=1;"x";"") D2 {=WENN(ZEILE(B1)>SUMME((B2<>"")*($C$2:$C$11="x"));"";INDEX(B:B;KKLEINSTE(WENN(($B$2:$B$11<>"")*($C$2:$C$11="x");ZEILE($2:$11));ZEILE(B1))))}

Enthält Matrixformel: Umrandende { } nicht miteingeben, sondern Formel mit STRG+SHIFT+RETURN abschließen!

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Matrixfreie Lösung mit zwei Hilfsspalten

Tabelle2 (2)

	B	C	D	E
1	Namen	HSp.	HSp.	matrixfreie Lösung
2	Klaus	x	1	Klaus
3	Klaus		3	Max
4	Max	x	4	Peter
5	Peter	x	5	Sabine
6	Sabine	x	10	Sonja
7	Max
8	Klaus
9	Sabine
10	Sabine
11	Sonja	x

Formeln der Tabelle

Zelle Formel C2 =WENN(ZÄHLENWENN($B$2:$B2;B2)=1;"x";"") D2 =VERGLEICH("x";$C$2:$C$11;0) E2 =WENNFEHLER(INDEX($B$2:$B$11;D2);"") C3 =WENN(ZÄHLENWENN($B$2:$B3;B3)=1;"x";"") D3 =WENNFEHLER(WENN(ZEILE(B1)>ZÄHLENWENN($C$2:$C$11;"x");"";D2+VERGLEICH("x";INDEX(INDEX($C$2:$C$11;D2+1):C$11;);0));"") E3 =WENNFEHLER(INDEX($B$2:$B$11;D3);"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[basti1912]

Hallo Günter, 

vielen Dank du hast mir sehr geholfen! 

Gruß