Office: Automatisch Zeilen aus anderem Blatt übernehmen

Hallo,

ich habe eine Tabelle mit mehreren Blättern.
Auf dem 1. Blatt steht z. B. in der 3. Spalte ein Name. Nun soll die komplette Zeile in ein anderes Blatt übernommen werden. Jeweils für einen Name ein neues Blatt (diese sind angelegt).
Wie kann ich dies realisieren?
Wer kann mir da helfen?
Vielen Dank schonmal

 

Hallo,

wenn das ein einmaliger Vorgang ist würde ich dem Spezialfilter arbeiten:

http://www.online-excel.de/excel/singsel.php?f=8

Eine Formellösung die sich aber bei einer sehr großen Tabelle vermutlich negativ auf das Laufzeitverhalten niederschlägt:

Die Ausgangstabelle:

	A	B	C	D
1	A1	B1	Name	D1
2	A2	B2	Name 2	D2
3	A3	B3	Name	D3

und so die Tabelle für 'Name'

	A	B	C	D
1	A1	B1	Name	D1
2	A3	B3	Name	D3

Zelle	Formel
A1	{=WENN(ISTFEHLER(INDEX(Tabelle1!$A$1:$D$10;KKLEINSTE(WENN(Tabelle1!$C$1:$C$10="Name";ZEILE($1:$10));ZEILE(A1));SPALTE()));" ";INDEX(Tabelle1!$A$1:$D$10;KKLEINSTE(WENN(Tabelle1!$C$1:$C$10="Name";ZEILE($1:$10));ZEILE(A1));SPALTE()))}

<table><tr><td>Achtung, Matrixformel enthalten!</td></tr><tr><td><span>Die geschweiften Klammern{} werden </span><span>nicht</span><span> eingegeben.</span></td></tr><tr><td><span>Verlassen Sie den Zelleneditor mit </span><span>Strg+Shift + Enter</span><span>, statt Enter alleine.</span></td></tr></table>[/parsehtml]

Die Formel in A1 kopierst du soweit wie notwendig nach rechts und nach unten.

In der Formel selbst muss der Bereich (A1 bis D10) und der Name für die Spalte C angepasst werden.

 

Hallo,
danke für die schnelle Antwort.
Es wird aber im Laufe des Jahres eine größere Tabelle werden. Außerdem muß sie ständig aktualisiert werden.

 

Hallo,

dann versuch es mal mit dem folgenden Code als Ansatz.

Der Code muss in ein allgemeines Modul der Datei und benötigt an den markierten Stellen noch Anpassungen.

Public Sub KopiereZeilen()
'Sisto Salera 25.11.2005
'Das Makro überträgt Zeilen von Ws2 zu Ws1
'Der Suchbegriff wird in Ws1.SuchSpalte gesucht
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim SuchBegriff$, SuchSpalte$, Ws1Zeile&, Ws2Zeile&

'DEFINITIONEN Ws1 = Blatt indem gesucht wird
SuchBegriff = "Name" '<-- anpassen
SuchSpalte = "C" '<-- anpassen: Addresse der SuchSpalte in Ws1
Set Ws1 = Worksheets("Tabelle1") '<-- anpassen: Tabellenname wo gesucht wird
'DFINITIONEN Ws2 = Blatt wohin kopiert wird
Ws2Zeile = 1 '<-- anpassen: ErsteZeile in Ws1
Set Ws2 = Worksheets("Tabelle2") '<-- anpassen: Tabellenname wo gesammelt wird

'Suchen und Kopieren
For Ws1Zeile = 1 To Ws1.Cells(Rows.Count, SuchSpalte).End(xlUp).Row
If Ws1.Cells(Ws1Zeile, SuchSpalte) = SuchBegriff Then
Ws1.Rows(Ws1Zeile).Copy Ws2.Cells(Ws2Zeile, 1)
Ws2Zeile = Ws2Zeile + 1
End If
Next Ws1Zeile
End Sub

 

Hallo,

danke. Das funktioniert ganz gut. Diesen Code muß ich aber bei jeder Tabelle extra eintragen (wg. Name) - sehe ich das richtig.
Nun möchte ich gern, dass automatisch, wenn ich eine neue Tabelle einfüge und in die Zelle A1 den Namen einfüge, sich das neue Blatt die Daten aus dem Blatt "Gesamt" holt.
Das jeweilige Blatt soll auch aus dieser Zelle den Namen erhalten. Dies geht ja mit

Sub TabName()
ActiveSheet.Name = Range("A1")
End Sub

- oder? Für weitere Hilfe wäre ich dankbar.
Gruß

 

Hallo,

noch kurz eine Frage. Bei o. g. Code muß man ja für jedes einzelne Blatt das Makro aktivieren. Oder geht das auch für alle zusammen?

Gruß
Kagi