Kopieren sichtbare Zellen b. ausgeblendeten Zeilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Zunächst einmal wäre die Frage zu klären, was in Spalte B in den ausgeblendeten Zeilen steht.
Sind diese leer und sollen auch leer bleiben, so wäre am einfachsten die von Luc beschriebene Methode zu verwenden, nämlich erst alles zu kopieren, dann mit umgekehrter Logik zu filtern und in Spalte B die sichtbaren Zellen zu leeren.
Komplizierter wird's, wenn in Spalte B in den ausgeblendeten Zeilen Werte und Formatierungen stehen und diese erhalten bleiben müssen.
Dann hängt es davon ab, ob du in Spalte B nur die Werte aus A benötigst oder ob du vollständig kopieren willst, dh mit Formeln und Formaten.
Wenn du nur die Werte brauchst, dann kannst du auch einfach filtern und in die erste sichtbare Zelle (B1) die Formel =A1 eintragen und nach unten kopieren. In der gefilterten Liste werden die Formeln dann nur in die sichtbaren Zeilen eingefügt, die ausgeblendeten werden nicht bearbeitet.
Ein vollständiges Kopieren wird dann etwas umständlicher:
1. Hebe den Filter auf und trage in eine erste Hilfsspalte in alle Zellen die Formel =Zeile() ein.
2. Filtere und trage in eine zweite Hilfsspalt die Formel =Zeile() ein. Die Formel wird durch die Filterung nur in die sichtbaren Zeilen eingetragen.
3. Hebe die Filterung auf.
4. Kopiere beide Hilfsspalten und füge sie an gleicher Stelle als wert ein (Formeln fixieren)
5. Sortiere die Tabelle nach der zweiten Hilfsspalte. Die Zellen die von A nach B kopiert werden müssen, sollten jetzt lückenlos untereinander stehen.
6. Kopiere die Zellen von A nach B
7. Sortieren die Tabelle nach der ersten Hilfsspalten, um sie wieder in die originale Reihenfolge zu bringen.
8. Lösche die beiden Hilfsspalten.
Eine Makrolösung könnte so aussehen:

Dim A As Range
For Each A in columns(1).specialcells(xlcelltypevisible).Areas
A.copy Destination:=A.Offset(0, 1)
Next

Gruß Daniel

Hallo Luc, Hallo Hajo
Hallo Werner, Hallo Daniel
jetzt will ich aber endlich eine Rückmeldung bringen.
vielen vielen Dank für eure Vorschläge und Lösungsansätze.
Ich habe mir alles in Ruhe angesehen und durch den Kopf gehen lassen,
erst eínmal um alles auch richtig zu verstehen und dann ob es für meine Sache das Richtige wäre.
Das Zwischenkopieren habe ich dann ausgeschlossen, da mir die Chance eines Fehlers beim Löschen der im
Original ausgeblendeten Zeilen zu groß wäre und Hajo´s Vorschlag habe ich dann auch nicht genommen,
da in der Ausgangsspalte auch einiges mit Formeln steht und in der Zielspalte nur Werte ankommen sollen.
Ich bin dann bei VBA hängengeblieben und habe mir Daniels Vorschlag noch ein bisschen umgebaut.
Einmal von der Ausgangsspalte in die Zielspalte kopieren oder in der Zielspalte sich die Werte aus der
Ausgangsspalte holen.
Wobei die 2. Variante deutlich schneller ist.
Zu eurer Info hier mein umgebautes Endprodukt:
Variante 1
Dim A As Range
Application.ScreenUpdating = False
For Each A In Columns("HI").SpecialCells(xlCellTypeVisible).Areas
A.Copy
A.Offset(0, 2).PasteSpecial Paste:=xlValues
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Variante 2
Dim A As Range
Application.ScreenUpdating = False
For Each A In Columns("HK").SpecialCells(xlCellTypeVisible).Areas
A.Value = A.Offset(0, -2).Value
Next
Application.ScreenUpdating = True
Euch nochmals vielen Dank und ich finde es immer wieder Super, wie mir
in diesem Forum geholfen wird.
Schönen Gruß
Hubert

Beliebteste Forumthreads (12 Monate)

Kopieren sichtbare Zellen b. ausgeblendeten Zeilen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopieren sichtbare Zellen b. ausgeblendeten Zeilen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread