Filtern und Kopieren - VBA | HERBERS Excel Forum

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das klappt auch nun fast, aber irgendwie sind noch Fehler drin.
-das Format wird nicht mitkopiert, so dass z.B. ein Datum nur in Zahlen erscheint
-die Überschrift in A1 wird mit kopiert und auch gelöscht, was nicht sein sollte.
-kann ich evtl. die zu kopierenden Spalten bzw. Zeilen von A:O eingrenzen?
Wäre erneut sehr dankbar für entsprechende Hilfestellung.
Herzliche Grüße - Wolfgang


Sub FilternUndKopieren()
Application.ScreenUpdating = False
Sheets("Grunddaten").Activate
modBlattschutz.Blattschutz_aufheben
With Range("A1")
.Autofilter Field:=17, Criteria1:=">180"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Sheets("Altdaten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Grunddaten").UsedRange.SpecialCells(xlVisible).Delete shift:=xlUp
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wenn du nur die die sichtbaren Daten ohne Überschrift kopieren willst, dann kannst den zu kopierenden Bereich mit .Offset(zeilen, Spalten) verschieben und mit .Resize(Zeilen, Spalten) in der grösse anpassen.
insgesamt sieht das dann so aus


.Autofilter Field:=17, Criteria1:=">180"
.CurrentRegion.offset(1,0).SpecialCells(xlCellTypeVisible).Resize(,15).Copy

wie du die Formate noch mitkopierst, kannst du aus meiner alten Datei ableiten, oder du verwendest statt "xlPasteValues" den Parameter "xlPasteAll", dann werden aber eventuelle Formeln mitkopiert und bleiben als formel erhalten, da musst du wissen, ob das ein Problem ist.
um das Löschen der überschrift zu verhindern, kannst du die gleiche Metohde verwenden wie beim Kopieren.
Gruß, Daniel

Sub FilternUndKopieren2() With Sheets("Grunddaten") .Range("A1").AutoFilter Field:=5, Criteria1:=">180" Intersect(.Columns("A:E"), .Range(.Rows(2), .Rows(.Range("a1").CurrentRegion.Rows.Count))). _ Copy Sheets("Altdaten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormats Sheets("Altdaten").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues .Range(.Rows(2), .Rows(.Range("a1").CurrentRegion.Rows.Count)).EntireRow.Delete shift:=xlUp .Range("A1").AutoFilter .AutoFilterMode = False .Application.CutCopyMode = False End With End Sub

Beliebteste Forumthreads (12 Monate)

Filtern und Kopieren - VBA

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Filtern und Kopieren - VBA

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

322 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