Zeile kopieren mit Filter und Gruppierung

Hallo zusammen,
ich habe eine Tabelle mit Filter, einige Spalten sind zudem gruppiert (und "eingeklappt" -> sorry, keine Peilung wie ich das sonst beschreiben soll;-). Ich möchte nun jeweils die ganze Zeile komplett (dh. inkl. den aktuell nicht sichtbaren, gruppierten Spalten) in ein anderes Tabellenblatt kopieren. Leider wird mir so aber nur jeweils die effektiv sichtbaren Spalten übertragen, somit verschieben sich natürlich die Daten je nach dem, welche Gruppierung gerade geöffnet ist.
Mit


with Range X
If .FilterMode = True Then
.ShowAllData
End If
end with

funktioniert es. Aber damit setze ich natürlich die aktuellen Filter zurück, diese würde ich aber gerne beibehalten.
Gibt es eine Möglichkeit, in einem gefilterten Bereich eine ganze Zeile komplett inkl. ausgeblendet, gruppiert oder was auch immer zu kopieren?
Danke im Voraus für Eure Hilfe
Lg
Marc

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets(1) Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets(2) Dim Zeile As Range, i& Application.ScreenUpdating = False With WsQ With .AutoFilter Set Zeile = .Range.Rows(4) For i = 1 To Zeile.Cells.Count WsZ.Cells(1, i) = Zeile.Cells(i) Next i End With End With Set Wb = Nothing: Set WsQ = Nothing Set WsZ = Nothing: Set Zeile = Nothing End Sub

Hallo Michael,
zunächst vielen Dank für Deine Antwort. Ja, Du hast mich richtig verstanden. Hmmm, auf die Idee bin ich gar nicht gekommen, tönt aber interessant! Ich bin aber nicht ganz sicher, wie sich das auf die Geschwindigkeit auswirken würde, ich habe etwa 250 Spalten zu kopieren...
In der Zwischenzeit habe ich im Netz noch eine andere Lösung gefunden: Ich speichere mir die Filter vorher ab, hebe sie auf, kopiere die komplette Zeile und stelle die Filter nachher wieder her. Und das funktioniert sogar ganz gut, anbei die zwei relevanten Subs:

Sub Filter_sichern_und_aufheben()
Dim objFilter As Filter
Dim bolFilter As Boolean
With ActiveSheet
If .AutoFilterMode Then
For Each objFilter In .AutoFilter.Filters
If objFilter.On Then
bolFilter = True
Exit For
End If
Next
If bolFilter Then
ActiveWorkbook.CustomViews.Add ViewName:="temporary", _
PrintSettings:=True, RowColSettings:=True
.ShowAllData
End If
End If
End With
End Sub
Sub Filter_wiederherstellen()
On Error Resume Next
With ActiveWorkbook.CustomViews("temporary")
.Show
.Delete
End With
End Sub

Das funktioniert sogar einigermassen schnell. Aber nochmals vielen Dank für Deine Bemühung, ich weiss es sehr zu schätzen!
Lg Marc

Beliebteste Forumthreads (12 Monate)

Zeile kopieren mit Filter und Gruppierung

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile kopieren mit Filter und Gruppierung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread