Kærlighed samfund
ich har 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 ( WEEKLY DISCUSSION) kopieren, wenn eine bestimmte Bedingung (Criteria) erfüllt ist.
Nun hab ich mit Macros gearbeitet und folgenden Code erstellt.
Tilbage bliver nur die Information fra en enkelt Tabellenblatt angezeigt, obwohl mein Code alle 3 Tabellenblatt anzeigt. Dann have ich gedacht, dass ich ja die letzte Zeile nicht immer as A1 bezeichnen kann, weil die Informationen immer überschreiben werden. Så hab ich"CopyToRange" i kode er skrevet. Hvis du ikke opdaterer noget, kan du ikke længere angive noget.
Var en meinem kode forkert?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alle tabeller findes i en Excel-Datei (Makro-aktiveret skabelon).
Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Timotee
Sub Filter_TeamUpdate()
'
' Filter_TeamUpdate makro
'Timotee
'
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 ("UGENTLIG DISKUSSION"). Vælg
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range("A1") _
, Unik:=Falsk
lngLastRow = Sheets("UGENTLIG DISKUSSION").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) _
, Unik:=Falsk
lngLastRow = Sheets("UGENTLIG DISKUSSION").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) _
, Unik:=Falsk
lngLastRow = Sheets("UGENTLIG DISKUSSION").Cells(Rows.Count, 1).End(x1Up).Row
End Sub
ich har 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 ( WEEKLY DISCUSSION) kopieren, wenn eine bestimmte Bedingung (Criteria) erfüllt ist.
Nun hab ich mit Macros gearbeitet und folgenden Code erstellt.
Tilbage bliver nur die Information fra en enkelt Tabellenblatt angezeigt, obwohl mein Code alle 3 Tabellenblatt anzeigt. Dann have ich gedacht, dass ich ja die letzte Zeile nicht immer as A1 bezeichnen kann, weil die Informationen immer überschreiben werden. Så hab ich"CopyToRange" i kode er skrevet. Hvis du ikke opdaterer noget, kan du ikke længere angive noget.
Var en meinem kode forkert?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alle tabeller findes i en Excel-Datei (Makro-aktiveret skabelon).
Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Timotee
Sub Filter_TeamUpdate()
'
' Filter_TeamUpdate makro
'Timotee
'
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 ("UGENTLIG DISKUSSION"). Vælg
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range("A1") _
, Unik:=Falsk
lngLastRow = Sheets("UGENTLIG DISKUSSION").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) _
, Unik:=Falsk
lngLastRow = Sheets("UGENTLIG DISKUSSION").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) _
, Unik:=Falsk
lngLastRow = Sheets("UGENTLIG DISKUSSION").Cells(Rows.Count, 1).End(x1Up).Row
End Sub