Einfügen in einen gefilterten Datensatz - Excel-Tipps

Inhaltsverzeichnis

Schau Video
Kopiere diesen Code
Eine Lösung ohne Makros

Joe fragt, ob es eine Möglichkeit gibt, einen gefilterten Einfügevorgang in Excel durchzuführen.

Angenommen, Sie haben 1000 Datensätze auf Sheet1. Sie filtern diesen Datensatz, um nur die Datensätze mit ProdID = Z anzuzeigen. Wählen Sie den Datensatz aus und fügen Sie ihn in Sheet2 ein. In Excel werden nur die sichtbaren Datensätze angezeigt, sodass Sie einen zusammenhängenden Zellenblock haben. Vielleicht führen Sie einige Transformationen an diesen Datensätzen durch und müssen sie jetzt wieder in den Originaldatensatz einfügen. Excel bietet KEINE einfache Möglichkeit, dies zu tun. Das Makro in diesem Video unterstützt Sie dabei. Ich habe die Learn Excel Podcast-Episode 977 aufgezeichnet, die ein Makro zeigt, das bei dieser Aktion hilft. Hier finden Sie das Video und den Code, die in der Excel-Arbeitsmappe verwendet werden.

Schau Video

Kopiere diesen Code

Ich habe den Code aus dem Video ein wenig angepasst. Dies setzt voraus, dass Sie die Überschriftenzeile und die gefilterten Datensätze von Sheet1 nach Sheet2 kopieren:

Sub PasteBack() ' Assumes the Filterered Sheet1 is active Set DataToCopy = Sheet2.Range("A1").CurrentRegion n = 2 ' index for range to copy from Sheet2 one row at a time, skipping headers For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row ' row 1 is header If Not Rows(i).Hidden Then DataToCopy.Offset(n - 1).Resize(1).Copy Cells(i, 1) n = n + 1 If n> DataToCopy.Rows.Count Then Exit Sub End If Next i End Sub