Office: (Office 2007) VBA Kopieren bei gesetztem Autofilter

phylax · 29. Juni 2013

Hallo zusammen,
ich habe eine gefilterte txt Datei und möchte alle Daten kopieren ohne die Überschrift.
Die Daten werden markiert, also ab der 2. Zeile, dass ist die Zeile die auch Daten enthält.

Ich habe versucht mit dem Makrorekorder das Problem zu lösen, aber dann kommt die Fehlermeldung:
"MS Office Excel kann das diagramm nicht erstellen, da der Datenbezug zu komplex ist...."

Hat jemand eine Idee mit welchem Trick gefilterte Daten zu kopieren sind?
Vielen Dank im voraus.

:)

Hasso · 1. Juli 2013

Hallo phylax,

ich habe eine gefilterte txt Datei und möchte alle Daten kopieren ohne die Überschrift.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wozu braucht man da einen Trick? Mit Range.Copy werden doch alle Daten kopiert:

Code:

Option Explicit

Private Sub CommandButton1_Click()

Dim intletzteZeile As Integer
Dim intletzteSpalte As Integer
Dim intZeile As Integer

intletzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
intletzteSpalte = Cells(1, Columns.Count).End(xlToLeft).Column

ActiveSheet.Range(Cells(2, 1), Cells(intletzteZeile, intletzteSpalte)).Copy Destination:=Worksheets("Tabelle2").Range("A1")

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beispielmappe anbei.

Oder sollten nicht alle, sondern nur die gefilterten Daten kopiert werden?
Dann so: Code:

Private Sub CommandButton2_Click()

Dim intletzteZeile As Integer
Dim intletzteSpalte As Integer
Dim rngZeile As Range

intletzteZeile = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
intletzteSpalte = Worksheets("Tabelle1").Cells(1, Columns.Count).End(xlToLeft).Column

Worksheets("Tabelle2").UsedRange.ClearContents

For Each rngZeile In Worksheets("Tabelle1").Range("A2:A" & intletzteZeile)
If Worksheets("Tabelle1").Rows(rngZeile.Row).Hidden = False Then
intletzteZeile = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(rngZeile.Row, 1), Cells(rngZeile.Row, intletzteSpalte)).Copy Destination:=Worksheets("Tabelle2").Range("A" & intletzteZeile + 1)
End If
Next rngZeile
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Fehlermeldung verstehe ich allerdings nicht. Was hat es denn mit einem Diagramm zu tun, wenn du Daten kopieren willst?

phylax · 1. Juli 2013

Hallo Hasso,
vielen Dank für die super schnelle Antwort.
Sorry, ich möchte nur die gefilterteten Daten kopieren

Die Variablen "intletzteZeile" + "intletzteSpalte" habe ich auf Long geändert, aber leider läuft das Makro extrem lange.
Es sind ca. 350.000 Zeilen und 35 Spalten, die u.a. nach einer Spalte gefiltert werden.
Gibt es evtl. einen Befehl der nur alle sichtbaren Daten kopiert und dadurch wesentlich schneller ist?
Vielen Dank

hary · 1. Juli 2013

Moin
Hab hier kein Excel, aber probiermal.

ActiveSheet.Cells(2, 1).Resize(intletzteZeile - 1, intletzteSpalte).SpecialCell(xlVisible).Copy

gruss hary

Hasso · 1. Juli 2013

Hallo hary,

dein Tipp war goldrichtig! So geht's sehr flott: Code:

Private Sub CommandButton2_Click()

Dim lngletzteZeile As Long
Dim lngletzteSpalte As Long

lngletzteZeile = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
lngletzteSpalte = Worksheets("Tabelle1").Cells(1, Columns.Count).End(xlToLeft).Column

Worksheets("Tabelle2").UsedRange.ClearContents
Worksheets("Tabelle1").Cells(2, 1).Resize(lngletzteZeile - 1, lngletzteSpalte).SpecialCells(xlVisible).Copy
Worksheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteValues

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

phylax · 1. Juli 2013

Guten Morgen Hasso,
guten Morgen hary,

die Fehlermeldungen lassen mich nicht los.
Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler

Daraufhin habe ich die Variable von lng in long geändert
Leider bleibt es bei der Fehlermeldung.
Was kann ich noch tun?

hary · 1. Juli 2013

Moin
Was passiert wenn du den Code im Einzelschritt durchgehst?
Blattschutz /verbundene Zellen? Kann vieles sein.
Lad mal eine Bsp.-Mappe hoch. Braucht keine 350000 Zeilen.
gruss hary

phylax · 1. Juli 2013

Hallo Hasso,
es gibt keine Verbundenen Zellen.

An dieser Zeile steigt das Makro aus:
Worksheets("Tabelle1").Cells(2, 1).Resize(longletzteZeile - 1, longletzteSpalte).SpecialCells(xlVisible).Copy

Ich habe die Daten in Tabelle1 reduziert bis auf 110000 Zeilen, dann funktioniert das Makro
Bei 120000 Zeilen kommt die Fehlermeldung "1004"

Office: (Office 2007) VBA Kopieren bei gesetztem Autofilter

VBA Kopieren bei gesetztem Autofilter

VBA Kopieren bei gesetztem Autofilter

VBA Kopieren bei gesetztem Autofilter

VBA Kopieren bei gesetztem Autofilter

VBA Kopieren bei gesetztem Autofilter - Similar Threads - VBA Kopieren gesetztem

Per VBA Zeilen einfügen und danach in diese Texte kopieren

Excel Range als Bild in Word einfügen

Zellen aus Aktiver Zeile kopieren

VBA: 2 Tabellenblätter Inhalte kopieren und in eine Excelmappe einfügen und als .xlsm speichern

VBA Zeilen kopieren mit Bedingung

VBA - Datensätze ans Ende einer anderen Tabelle kopieren

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)