AW: Filterergebnis per VBA kopieren
27.06.2007 12:48:00
Chaos
Servus Melanie,
falls dem so ist, wie in meiner letzten AW beschrieben, dann so:
Sub neu1()
Dim t As Integer, s As Integer
Dim zeile As Long
t = Worksheets("Tabelle3").Range("A65536").End(xlUp).Offset(0, 0).Row
s = Worksheets("Tabelle2").Cells.SpecialCells(xlLastCell).Row
s = s + 1
For zeile = 2 To t Step 1
If Worksheets("Tabelle3").Cells(zeile, 1).Value = "neu" Then
Worksheets("Tabelle3").Cells(zeile, 1).EntireRow.Copy Destination:=Worksheets(" _
Tabelle2").Range(("A" & s))
s = s + 1
End If
Next zeile
ThisWorkbook.Save
End Sub
Nachteil: wenn du nach dem kopieren was löschst in deiner Zieltabelle, musst du speichern, sonst fügt Excel die Werte nach der letzten (also gelöschten Gruppe von Daten) ein.
Gruß
Chaos