An die Freunde von VBA in Excel 2016 - und Excel M365 (Windows 10)
suche einen VBA Code,
der den Inhalt einer gefilterte Spalte in die Nachbar-Spalte kopiert.
In einer Tabelle ist die Anzahl der Zeilen nach dem Aktualisieren unterschiedlich groß.
D.h. der ausgewählte Bereich ändert sich.
Es wird ein Filter auf den Namen eines Kollegen gesetzt.
Dieser kopiert "seinen" gesamten Inhalt der gefilterten Spalte in die Nachbar-Spalte.
Nur die sichtbaren Zellen in der Spalten C möchten nach D kopiert werden.
Damit werden die nicht sichtbaren Zeilen von den anderen Kollegen nicht angetastet.
Und der bearbeitende Kollege kann Spalte C neu editieren - in dem er Spalte D zum Vergleich hat.
Excel selbst scheint die Funktion nicht anzubieten.
Es kann die gefilterte Spalte kopieren.
Doch fügt es den Inhalt dann ohne Leerzeilen in die Nachbar-Spalte.
Wenn aus 8.000 Zeilen über den Autofilter zum Beispiel 80 herausgefiltert werden,
erscheinen diese 80 Zeilen nach dem Kopieren untereinander von Zeile L1 bis L80.
Das ist nicht gewünscht.
Wenn z.B. der Inhalt einer Zeile in K5001 war
dann möchte die Kopie in L5001 stehen.
Anbei ein Beispiel basierend auf der Idee von
https://www.vba-forum.de/View.aspx?ziel=56322-Gefilterten_Bereich_kopieren_und_in_neuem_Ausgeben
Spalte F zeigt das Ergebnis für den Filter Albert.
Leider habe dazu nichts passendes auf diesen oder anderen VBA Seiten gefunden.
Vielen Dank für Eure Unterstützung im Voraus
A |
B |
C |
D |
E |
F |
Name |
Monat |
Jahr |
Kopie_Jahr |
|
Gewünscht |
Hans |
Aug |
2000 |
|
|
|
Hans |
Feb |
|
|
|
|
Hans |
Feb |
2001 |
|
|
|
Hans |
Item |
2002 |
|
|
|
Markus |
Jan |
2003 |
|
|
|
Albert |
Jul |
2004 |
|
|
2004 |
Albert |
Jun |
2005 |
|
|
2005 |
Hans |
Mar |
2006 |
|
|
|
Albert |
May |
2007 |
|
|
2007 |
Albert |
Sep |
|
|
|
|
Hans |
Sep |
2008 |
|
|
|
Albert |
Oct |
2009 |
|
|
2009 |
Hans |
Nov |
2010 |
|
|
|
Hans |
Dec |
|
|
|
|
Hans |
Dec |
2011 |
|
|
|
Hans |
Jan |
2012 |
|
|
|
Albert |
Feb |
2013 |
|
|
2013 |
Markus |
Mar |
2014 |
|
|
|
Lukas |
Apr |
2015 |
|
|
|
Lukas |
May |
|
|
|
|
Lukas |
May |
2016 |
|
|
|
Lukas |
Jun |
2017 |
|
|
|
|