Nicht sichtbare Zellen kopieren.

Guten Abend in die Forums-Gemeinde,
vielleicht hat jemand das Phänomen ja auch schon beobachtet und ev. eine Lösung dafür gefunden:
Bekanntlich kann man bei Excel-Listen beliebige Spalten ausblenden und mit einer Zellenmarkierung auch über die ausgeblendeten Spalten hinweg einen Bereich aufziehen und per Strg+C kopieren. Dabei bleibt der markierte Bereich trotz der nicht sichtbaren Spalten stets vollständig und zusammenhängend, sprich es werden standardmäßig auch die nicht sichtbaren Zellen mit markiert/kopiert.
Das ändert sich jedoch, wenn zusätzlich noch ein Autofilter für Zeilen aktiv ist und (!) mindestens eine Zeile gefiltert/ausgeblendet ist.
Ein wie oben erläutert mit der Maus, Tastatur oder auch per VBA-Makro markierter Zellenbereich wird in diesem Modus an allen Stellen unterbrochen, an denen Spalten ausgeblendet sind. Im Ergebnis markiere ich dann also nur noch die sichtbaren Zellen. Die nicht sichtbaren Zellen werden ausgelassen und der gesamte Bereich ist um die Anzahl der ausgeblendeten Zellen gekürzt.
Das Verhalten erschließt sich mir nicht und daher wären meine Fragen in die Runde:
- Wieso hat der Autofilter für Zeilen einen Einfluss darauf, ob ausgeblendete SPALTEN mit kopiert werden oder nicht?
- Wie kann ich bei gleichzeitigem Autofilter UND Spalten-Ausblendungen trotzdem alle Zellen einer Zeile (auch die nicht sichtbaren) markieren und kopieren?
Nur vorsorglich: Den Hinweis, einfach entweder auf Autofilter oder auf Spalten-Ausblendungen zu verzichten, würde ich jetzt nicht unbedingt als zielführenden Lösungsansatz betrachten.
Verbindlichen Dank im Voraus, für jede hilfreiche Rückmeldung.
Userbild

Mr.PT [Do.19.Jan.2023 01:36]

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Chris,
danke für Deine Antwort - ein interessanter Ansatz und ein cleveres Stückchen Code.
With Intersect(Tabelle1.UsedRange, Range("D8:G8"))
Tabelle2.Range("A1").Resize(1, .Columns.Count) = .Value
End With
Der Code kopiert die Inhalte des Bereiches "D8:G8" in ein separates Blatt Tabelle2 und nimmt dabei auch die Werte der ausgeblendeten Spalten mit. Das ist immerhin ein kleiner Fortschritt, da die bisherigen Methoden die nicht sichtbaren Zellen ausgelassen haben.
Beim Kopieren in die gleiche Tabelle1 klappt es allerdings wieder nicht, denn dort werden bei der Ausgabe ebenfalls nur die sichtbaren Zellen abgelegt. Nach dem Aufklappen der ausgeblendeten Spalten sind diese leer:
With Intersect(Tabelle1.UsedRange, Range("D8:G8"))
Tabelle1.Range("D16").Resize(1, .Columns.Count) = .Value
End With
Ferner benötige ich leider auch das Gesamtformat der Zellen als echte Kopie und nicht nur die Werte.
Mein ursprünglicher Ansatz dazu war ja einfach so:
Range("D8:G8").Copy
Range("D16").Select
ActiveSheet.Paste
nur funktioniert der eben nicht mit den nicht sichtbaren Zellen.
Hättest Du vielleicht noch eine Idee, wie man mit Deinem Ansatz Excel dazu bringen könnte, einfach nur den Bereich "D8:G8" vollständig zu kopieren und ihn im gleichen Blatt nach unten auf z.B. "D16:G16" vollständig abzulegen, wenn auch dazwischen Spalten ausgeblendet sind und der Autofilter in Anwendung ist?
Ich hätte nicht gedacht, dass das so schwierig ist.
Vielen Dank nochmal für die engagierte Hilfe.
VG Peter
[Do.19.Jan.2023 15:48]

Sub aaaa() Application.ScreenUpdating = False ActiveWorkbook.CustomViews.Add "tmp", True, True Columns.Hidden = False ActiveCell.EntireRow.Copy Sheets(2).Cells(1, 1) With ActiveWorkbook.CustomViews("tmp") .Show .Delete End With End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nicht sichtbare Zellen kopieren.

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread