Komunitas yang terhormat

ich habe folgendes Anliegen und habe bereits mehrere Tutorial durchgeschaut. Doch leider klappt es immernoch nicht.
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt ( DISKUSI MINGGUAN) kopieren, wenn eine bestimmte Bedingung (Kriteria) erfüllt ist.

Nun hab ich mit Macros gearbeitet und folgenden Kode erstellt.
Zunächst wurde nur die Informasi aus einem Tabellenblatt angezeigt, obwohl mein Kode semua 3 Tabellenblätter anzeigt. Dann habe ich gedacht, dass ich ja die letzte Zeile nicht immer als A1 bezeichnen kann, weil die Informationen immer überschreiben werden. Jadi hab ich"CopyToRange" saya Kode umgeschrieben. Tidak ada pembaruan yang dapat dilakukan dan tidak ada yang perlu dilakukan.

Apakah meinem Code falsch?
Lihat lebih baik lagi Zeilen aus mehreren Tabellenblättern in eine neue bersichtstabelle? Semua Tabellenblätter di einer Excel-Datei (Template Berkemampuan Makro).

Ich wäre sehr froh, wenn hier yerand helfen kann.
Herzlichen Dank di Vorfeld.
Timotius





Sub Filter_Pembaruan Tim()
'
' Filter_TeamUpdate Makro
' Timotee
'
lngLastRowANNA = Sheets("ANNA").Cells(Rows.Count, 1).End(x1Up).Baris
lngLastRowJULIA = Sheets("JULIA").Cells(Rows.Count, 1).End(x1Up).Baris
lngLastRowANDREA = Sheets("ANDREA").Cells(Rows.Count, 1).End(x1Up).Baris
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Baris


Sheets("DISKUSI MINGGUAN").Pilih

Sheets("ANNA").Range("A1:H" & lngLastRowANNA).Tindakan Filter Lanjutan:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range("A1") _
, Unik:=Salah

lngLastRow = Sheets("WEEKLY DISCUSSION").Cells(Rows.Count, 1).End(x1Up).Baris

Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).Tindakan Filter Lanjutan:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Unik:=Salah

lngLastRow = Sheets("WEEKLY DISCUSSION").Cells(Rows.Count, 1).End(x1Up).Baris

Sheets("ANDREA").Range("A1:H" & lngLastRowANDREA).Tindakan Filter Lanjutan:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Unik:=Salah

lngLastRow = Sheets("WEEKLY DISCUSSION").Cells(Rows.Count, 1).End(x1Up).Baris


End Sub