Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA kopieren gefilterte Daten

VBA kopieren gefilterte Daten
22.07.2013 13:50:50
Christopher
Grüß Euch Leute,
ich habe ein Problem. Ich habe eine Tabelle die unterschiedlich gefiltert wird.
Dann und wann möchste ich den Inhalt der Tabelle sichern. leider kopiert er nur die Gefilterten Daten. Ich hab schon ne ganze Weile gesucht find aber nur Leute die genau das gegenteilige Problem haben. Wenn ich z.B. Liste habe A1:V500 und gefiltert zeigt es z.B. A1:V25 an wird auch nur dieser Bereich kopiert.
Sub kopieren()
With Tabelle1
Tabelle9.Range("A1:AA800").Clear
.Range("A18:V628").Copy
Tabelle9.Range("A1").PasteSpecial xlPasteValues
End With
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA kopieren gefilterte Daten
22.07.2013 13:55:47
UweD
Hallo
so als Tipp...
- Lege eine Kopie der Tabelle an
- nimm den Filter dort raus,
- Kopiere dann diese Daten für deine Sicherung
- lösche die temporäre Tabelle wieder weg
Das ganze natürlich per VBA
Gruß UweD

AW: VBA kopieren gefilterte Daten
22.07.2013 14:33:34
Christopher
mpf da hätt ich ja auch drauf kommen können.
Dachte es gibt noch eine Möglichkeit über Specialcells(xlblabla) aber ich denk genau das geht nicht.
Dank Dir !!!

Anzeige
AW: VBA kopieren gefilterte Daten
22.07.2013 16:21:46
Rudi
Hallo,
eine Mäglichkeit:
Sub aaa()
Application.ScreenUpdating = False
ActiveWorkbook.CustomViews.Add "temp", True, True
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Sheets(2).Cells.ClearContents
Cells(1, 1).CurrentRegion.Copy Sheets(2).Cells(1, 1)
With ActiveWorkbook.CustomViews("temp")
.Show
.Delete
End With
End Sub

Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige