Frage zu Makro kopieren einfügen
22.10.2004 12:08:39
Silvi
Hab da mal ne Frage zu einem Makro, ist aus der Hilfedatei von Herber kopiert. Dieses Makro filtert und kopiert aber leider nur zeilenweise, ich brauche nur bestimmte Spalten z.B. Spalte A und Spalte C, der Rest soll nicht kopiert werden. Kann mir da mal jemand helfen?
Danke!
Silvi
Sub FilternKopieren()
Dim rngAct As Range
With Worksheets("Tabelle2")
.Cells.Clear
Range("d1").AutoFilter _
Field:=4, Criteria1:=Range("d1").Value
Set rngAct = Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible)
rngAct.Copy .Range("A7")
.Rows(1).Delete
.Select
End With
End Sub