Ganze Zeilen in eine andere Tabelle kopieren, wenn eine bestimmte Bedingung erfüllt ist.

nb-cs · 10. Juni 2019

Hallo Leute,

diesen Tread:

https://answers.microsoft.com/de-de/msoffice/forum/all/ganze-zeilen-in-eine-andere-tabelle-kopieren-wenn/fb920248-4c8c-4ed7-afd4-bc1f6c1324f6

habe ich gefunden. Der erste Teil mit der Formel wäre eigentlich die perfekte Lösung für mein Problem, wenn es mir gelingen würde, ganze Zeilen von einem Blatt ins andere zu kopieren, anstatt nur den Teil der ersten Spalte.

Im Blatt AAAA ist der Bereich, aus welchem die Zeilen entsprechend dem Kriterium der Spalte c (1, 2 oder 3) nach Blatt BBBB kopiert bzw. aufgelistet werden sollen.

In den Zellen A2, A3, A3 usw. ... von Blatt BBBB steht jeweils die Matrix-Fomel:

{=WENNFEHLER(INDEX(AAAA!$A$1:$A$7;KKLEINSTE(WENN(AAAA!$C$1:$C$7=$C$24;ZEILE($1:$7));ZEILE(A1)));"")}

{=WENNFEHLER(INDEX(AAAA!$A$1:$A$7;KKLEINSTE(WENN(AAAA!$C$1:$C$7=$C$24;ZEILE($1:$7));ZEILE(A2)));"")}

{=WENNFEHLER(INDEX(AAAA!$A$1:$A$7;KKLEINSTE(WENN(AAAA!$C$1:$C$7=$C$24;ZEILE($1:$7));ZEILE(A3)));"")}

.

.

In Zelle C24 von Blatt BBBB wird anhand von einer Dropdown-Liste das Kriterium (1, 2 oder 3) geändert.

Danke für Eure Hilfe

ahe92

Danke, das werde ich gleich mal testen!

Problem allerdings: Bei drei Lagerorten bleibt es jedoch nicht bei der gewöhnlichen Unter-Klassifizierung (bisher: F1 mit Unterteilung in F1 A1, F1 A2; F1 B1, F1 B2 usw.). Dort werden dann statt dessen diverse Kürzel wie K2, XK1, ADD, BOX verwendet, die
nichts miteinander gemeinsam haben. Dies war auch einer der Gründe, warum ich den Spezialfilter gewählt habe - ich dachte, bevor ich mehrere verschiedene Filterarten über die Tabellenblätter hinweg anwende (und es mir als absoluter Makro-Anfänger so nur unnötig
kompliziert mache), bleibe ich beim Spezialfilter, auch wenn es dann z.B. beim Lagerstandort F1 bei F1* als Kriterium bleibt.

Gibt es denn eine logische Erklärung, warum die Sortierung der Daten in meinem Makro nicht funktioniert? Filtern und die automatische Spaltenbreite funktioniert ja super...

Liebe Grüße,

André

ahe92

Hallo Claus,

vielen Dank für die Funktion auch von mir - sie funktioniert ganz super. Nun habe ich noch eine ergänzende Frage: Für eine mögliche Tabelle DREI (um bei dem obigen Beispiel zu bleiben) würde ich gerne nach mehreren (drei) Werten filtern.

Zur näheren Erklärung: "Werte" gibt in meiner Tabelle den Lagerort (A bis H) von Produkten an. Ziel ist es, aus Tbl EINS eine Tabelle DREI zu erstellen, die mir alle Produkte mit Lagerort A, B und C auflistet (anstatt z.B. nur A).

Geht das auch auf Basis der anfänglich erwähnten Formel, wenn ja, wie? Ich danke Dir schon mal recht herzlich!

André

Dieter_HH

..ich gehe mal davon aus, dass du keine Überschriften in deinen Tabellen hast und der Bereich über die Spalten A geht.

Hallo Claus,

vielen Dank für Deine große Mühe. Ich habe allerdings überall in den Zeilen 1-3 die gleichen Überschriften und der Bereich geht über die Spalten A-H.

Gleichwohl ist der angebotene Weg über Deine Programmierung nicht mein Favorit. Denn ich bevorzuge eine Lösung, die ich auch vollständig nachvollziehen kann. Da ich die von Dir verwendete Programmier-sprache nicht kenne, sondern noch aus der alten Schule
von Assembler, Algol, FORTRAN, Cobol usw. der 70er Jahre komme, müsste ich mich in die neue Pragrammiersprache kurz einarbeiten.

Ich möchte mir jedoch diesen Aufwand ersparen, denn meine Anforderung ist ziemlich einmalig. Deshalb die Frage, ob es einen alternativen einfacheren Weg über die Funktionen gibt?

Herzliche Grüße

Dieter

Dieter_HH

du kannst in Tabelle ZWEI in A1 auch eingeben:

=WENNFEHLER(INDEX(Eins!A:A;KKLEINSTE(WENN(Eins!$C$1:$C$1000="Wert";ZEILE($1:$1000));ZEILE(A1)));"")

die Eingabe mit STRG+Shift+Enter abschließen und nach rechts und unten ziehen.

Hallo Claus,

ich habe es ausprobiert; verstehe aber nicht Deinen Hinweis "und nach rechts und unten ziehen".

Derzeit kommt bei meinem Test in A1 nur die Zahl 41675 an. Was könnte ich falsch gemacht haben?

Gruß Dieter

ahe92

Hallo Claus,

danke schon einmal für Deine prompte Antwort!

Leider musste ich während meines weiteren Fortkommens gestern Vormittag feststellen, dass die ursprünglich verwendete Formel =WENNFEHLER(INDEX(Eins!A:A;KKLEINSTE(WENN(Eins!$C$1:$C$1000="Wert";ZEILE($1:$1000));ZEILE(A1)));"")
in der benötigten "Menge" (1000 Zeilen, mehrere Registerkarten) Excel unfassbar verlangsamt.

Ich habe das Ganze nun über ein Makro gelöst, das die Werte in ein neues Tabellenblatt filtert und direkt im Anschluss (nach vier Bedingungen) sortiert sowie am Ende die Spaltenbreite automatisch anpasst.

Leider Gottes sortiert er jedoch die Daten nicht - und ich weiß nicht warum. Anbei ein entsprechender Ausschnitt meines verwendeten Makros. Kannst Du mir sagen, was ich falsch gemacht habe?

Ich danke Dir und allen weiteren für Anregungen und Tips..

André

Sub FilternSpaltenbreiteSortieren()

'

'

' Tastenkombination: Strg+q

'

Dim lngLastRowMA As Long

Dim lngLastRowF1 As Long

lngLastRowMA = Sheets("MASTER").Cells(Rows.Count, 1).End(xlUp).Row

lngLastRowF1 = Sheets("F1").Cells(Rows.Count, 1).End(xlUp).Row

Sheets("F1").Select

Sheets("MASTER").Range("A1:J" & lngLastRowMA).AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=Sheets("spezialfilter").Range("A1:J3"), CopyToRange:=Range( _

"A1"), Unique:=False

ActiveWorkbook.Worksheets("F1").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("F1").Sort.SortFields.Add Key:=Range("I2:I" & lngLastRowF1), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("F1").Sort.SortFields.Add Key:=Range("C2:C" & lngLastRowF1), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("F1").Sort.SortFields.Add Key:=Range("B2:B" & lngLastRowF1), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("F1").Sort.SortFields.Add Key:=Range("A2:A" & lngLastRowF1), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("F1").Sort

.SetRange Range("A1:J" & lngLastRowF1)

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Columns("A:A").EntireColumn.AutoFit

Columns("B:B").EntireColumn.AutoFit

Columns("C:C").EntireColumn.AutoFit

Columns("D

").EntireColumn.AutoFit

Columns("E:E").EntireColumn.AutoFit

Columns("F:F").ColumnWidth = 40.5

Columns("G:G").EntireColumn.AutoFit

Columns("H:H").EntireColumn.AutoFit

Columns("I:I").EntireColumn.AutoFit

Columns("J:J").EntireColumn.AutoFit

End Sub

Hi,

willkommen im Windows Forum!

Ganze Zeilen in eine andere Tabelle kopieren, wenn eine bestimmte Bedingung erfüllt ist. - Similar Threads - Zeilen Tabelle kopieren	Forum	Datum
Zellen in anderes Tabellenblatt kopieren, wenn eine Bedingung erfüllt ist Zellen in anderes Tabellenblatt kopieren, wenn eine Bedingung erfüllt ist: Liebe Community,hoffentlich kann mir hier jemand weiterhelfen!Ich habe einen grossen Verteiler mit einigen hundert Kontakten pro Kontakt eine Zeile mit diversen Attributen wie Name, Kontaktstatus...	Microsoft Office	31. August 2023
Zeile von Tabelle A nach Tabelle B kopieren, wenn Bedingung erfüllt, bei mehreren gleichen... Zeile von Tabelle A nach Tabelle B kopieren, wenn Bedingung erfüllt, bei mehreren gleichen...: Ich suche nach einer Formel die eine Zeile bzw. deren einzelnen Zellinhalte von Tabelle A in Tabelle B überträgt, wenn ein Wert einer Suchbedingung entspricht. Das Problem ist, dass es die...	Microsoft Office	25. August 2023
Daten von einer Tabelle zur anderen Übertragen, wenn Bedingungen erfüllt sind Daten von einer Tabelle zur anderen Übertragen, wenn Bedingungen erfüllt sind: Liebes Microsoft Forum,ich brauche Hilfe bei dem Übertrag von Daten zwischen zwei Excel-Tabellen, die sich in der selben Datei befinden.Ich möchte, dass das Datum aus der Tabelle Report in die...	Microsoft Office	19. Oktober 2022
Wert aus anderer Tabelle übernehmen wenn Bedingung erfüllt Wert aus anderer Tabelle übernehmen wenn Bedingung erfüllt: Hallo liebe Community,ich verzweifle seit Tagen an meiner Formel. Ich habe gefühlt schon das ganze Forum durchsucht, aber egal wie ich die Formel umstelle, ich erhalte entweder immer den Fehler...	Microsoft Office	28. März 2022
Mit VBA Zelle kopieren wenn eine Bedingung erfüllt ist Mit VBA Zelle kopieren wenn eine Bedingung erfüllt ist: Hallo Zusammen Ich versuche schon seit einigen Tagen herauszufinden wie ich mein Problem lösen kann.. Ich hoffe Ihr könnt mir weiterhelfen ; Folgendes Problem: Ich versuche mit dem VBA im...	Microsoft Office	14. September 2020
Kopieren von Zellen wenn Bedingung erfüllt Kopieren von Zellen wenn Bedingung erfüllt: Liebes Microsoft-Forum, ich hoffe ihr könnt mir helfen... Ich habe eine Excel-Mappe mit 2 Blättern. Im Blatt "List" stehen alle Informationen über Produkte, Herausgeber, Owner etc. Sind...	Microsoft Office	6. Mai 2020
Zeile einfügen nach erfüllter Bedingung Zeile einfügen nach erfüllter Bedingung: Hallo zusammen, ich hoffe ihr könnt mir weiterhelfen und ich eröffne hier nicht einen alten Threat neu. Ich habe in meiner Excel-Liste momentan 3 Spalten: Spalte A: Artikelnummer Spalte B:...	Microsoft Office	20. April 2017

Ganze Zeilen in eine andere Tabelle kopieren, wenn eine bestimmte Bedingung erfüllt ist.