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

Diskutiere und helfe bei Ganze Zeilen in eine andere Tabelle kopieren, wenn eine bestimmte Bedingung erfüllt ist. im Bereich Microsoft Office im Windows Info bei einer Lösung; [IMG] Hallo Leute, diesen Tread:... Dieses Thema im Forum "Microsoft Office" wurde erstellt von nb-cs, 10. Juni 2019.

  1. nb-cs
    nb-cs Gast

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


    [​IMG]
    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
     
  2. ahe92 Win User

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

    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é
  3. ahe92 Win User

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

    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é
  4. Dieter_HH Win User

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

    ..ich gehe mal davon aus, dass du keine Überschriften in deinen Tabellen hast und der Bereich über die Spalten A:D 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
  5. Dieter_HH Win User

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

    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
  6. ahe92 Win User

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

    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: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
  7. User Advert


    Hi,

    willkommen im Windows Forum!
Thema:

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

Die Seite wird geladen...

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

Forum Datum

Automatische Erstellung einer Tabelle wenn bestimme Bedingung erfüllt wird

Automatische Erstellung einer Tabelle wenn bestimme Bedingung erfüllt wird: Hallo zusammen, ich habe ein etwas kniffliges Problem. Ich habe eine Arbeitsmappe mit fast 20 Blättern, die alle eine einheitliche Tabellenvorlage haben, aber nur zu unterschiedlichen Themen....
Microsoft Office 13. Februar 2019

Bestimmten Bereich aus einer Tabelle in Excel in eine andere Tabelle kopieren

Bestimmten Bereich aus einer Tabelle in Excel in eine andere Tabelle kopieren: Hallo Community, ich habe eine Frage zu effektiven kopieren in Excel. Ich möchte bestimmten Bereich einer Tabelle in eine andere Tabelle einer anderen Arbeitsmappe kopieren. Wie könnte ich das...
Microsoft Office 8. Juni 2018

ganze Zeile nach eine bestimmten Zeile verschieben wenn eine Zelle dieser Zeile ein...

ganze Zeile nach eine bestimmten Zeile verschieben wenn eine Zelle dieser Zeile ein...: Hallo Bin noch ein Anfänger in Exel, hätte eine Frage: Ist es möglich wenn ich in einer Zelle einer Zeile z.B F2 ein P eingebe die ganze Zeile 2 sich dann automatisch nach einer bestimmten Zeile...
Microsoft Office 29. September 2017

Zeilen ausblenden, wenn Bedingung in zwei Spalten erfüllt

Zeilen ausblenden, wenn Bedingung in zwei Spalten erfüllt: Hallo, ich habe eine Tabelle, in der zwei Spalten verschiedene Buchstaben enthalten. Nur wenn beide Spalten "n" enthalten, möchte ich die Zeilen per Filter ausblenden. Geht das? Wenn ja, wie?...
Microsoft Office 30. Juni 2017

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

Bestimmte Zeilen aus Excel Tabelle Kopieren, wenn Werte (Zahlen) in einer bestimmten Spalte...

Bestimmte Zeilen aus Excel Tabelle Kopieren, wenn Werte (Zahlen) in einer bestimmten Spalte...: Hallo, ich habe ein Problem das ich nicht lösen kann, und zwar: Aus einer Tabelle (siehe Screenshot unten) würde ich gerne, wenn in Spalte "C" Zahlen stehen, die gesamte Spalte in ein neues...
Microsoft Office 28. Dezember 2016

Werte einzelner Zellen von einer Tabelle in andere kopieren in freie Zeile wenn Bedingung...

Werte einzelner Zellen von einer Tabelle in andere kopieren in freie Zeile wenn Bedingung...: Hallo liebe Excel Experten, ich weiß, dieses Thema wurde irgendwie schon 100fach beantwortet, genau da liegt mein Problem ;-) Ich recherchiere schon seit Tagen und habe viele VBA Codes...
Microsoft Office 17. Oktober 2016
Ganze Zeilen in eine andere Tabelle kopieren, wenn eine bestimmte Bedingung erfüllt ist. solved
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.