Erst Filtern, dann bestimmte Zellen kopieren
Alex
Ich bräuchte da mal bitte Hilfe.
Also ich habe folgendes Makro, dass nach den Spalten N und M Filtert und diese dann in ein anderes Tabellenblatt kopiert:
Sub FilternKopierenTGA()
Dim rngAct As Range
With Worksheets("TGA")
.Cells.Clear
Range("N1").AutoFilter _
Field:=14, Criteria1:="TGA" 'Filtern Spalte N nach TGA
Range("M1").AutoFilter _
Field:=15, Criteria1:="26000"
Set rngAct = Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible)
rngAct.Copy .Range("A1")
Sheets("TGA").Range("1:1").AutoFilter
End With
End Sub
Kann mir mal jemand nen Ansatz geben wo und wie ich das einbauen kann? Wär super.
Vielen Dank
Anzeige