愛社區
ich habe folgendes Anliegen und habe bereits mehrere Tutorials durchgeschaut。 Doch leider klappt es immernoch nicht。
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt (每週討論) kopieren, wenn eine bestimmte Bedingung (Criteria) erfüllt ist。
Nun hab ich mit Macros gearbeitet und folgenden Code erstellt。
Zunächst wurde nur die Information aus einem Tabellenblatt angezeigt, obwohl mein Code alle 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。 所以哈比“CopyToRange" im 代碼 umgeschrieben. Bei nochmaligem updaten kann dann aber eine Fehlermeldung und es wurde nichts mehr angezeigt。
是不是 meinem Code falsch？
Wie bekomme ich bestimmte Zeilen aus mehreren Tabbellenblättern in eine neue Übersichtstabelle？ einer Excel-Datei（啟用宏的模板）中的所有表格。
Ich wäre sehr froh, wenn hier jemand helfen kann。
Herzlichen Dank im Vorfeld。
提摩太
子過濾器_TeamUpdate()
'
' Filter_TeamUpdate 宏
'提莫提
'
lngLastRowANNA = Sheets("ANNA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRowJULIA = Sheets("JULIA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRowANDREA = Sheets("ANDREA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Row
表格（“每週討論”）。選擇
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), 複製範圍：=範圍（“A1”） _
, 唯一:=假
lngLastRow = Sheets("每週討論").Cells(Rows.Count, 1).End(x1Up).Row
Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
, 唯一:=假
lngLastRow = Sheets("每週討論").Cells(Rows.Count, 1).End(x1Up).Row
Sheets("ANDREA").Range("A1:H" & lngLastRowANDREA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, 唯一:=假
lngLastRow = Sheets("每週討論").Cells(Rows.Count, 1).End(x1Up).Row
END SUB
ich habe folgendes Anliegen und habe bereits mehrere Tutorials durchgeschaut。 Doch leider klappt es immernoch nicht。
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt (每週討論) kopieren, wenn eine bestimmte Bedingung (Criteria) erfüllt ist。
Nun hab ich mit Macros gearbeitet und folgenden Code erstellt。
Zunächst wurde nur die Information aus einem Tabellenblatt angezeigt, obwohl mein Code alle 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。 所以哈比“CopyToRange" im 代碼 umgeschrieben. Bei nochmaligem updaten kann dann aber eine Fehlermeldung und es wurde nichts mehr angezeigt。
是不是 meinem Code falsch？
Wie bekomme ich bestimmte Zeilen aus mehreren Tabbellenblättern in eine neue Übersichtstabelle？ einer Excel-Datei（啟用宏的模板）中的所有表格。
Ich wäre sehr froh, wenn hier jemand helfen kann。
Herzlichen Dank im Vorfeld。
提摩太
子過濾器_TeamUpdate()
'
' Filter_TeamUpdate 宏
'提莫提
'
lngLastRowANNA = Sheets("ANNA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRowJULIA = Sheets("JULIA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRowANDREA = Sheets("ANDREA").Cells(Rows.Count, 1).End(x1Up).Row
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Row
表格（“每週討論”）。選擇
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), 複製範圍：=範圍（“A1”） _
, 唯一:=假
lngLastRow = Sheets("每週討論").Cells(Rows.Count, 1).End(x1Up).Row
Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
, 唯一:=假
lngLastRow = Sheets("每週討論").Cells(Rows.Count, 1).End(x1Up).Row
Sheets("ANDREA").Range("A1:H" & lngLastRowANDREA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, 唯一:=假
lngLastRow = Sheets("每週討論").Cells(Rows.Count, 1).End(x1Up).Row
END SUB