Kärlekssamhälle
ich har följande 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.
Tillbaka till början är informationen från en tabell med angezeigt, obwohl men Code all 3 Tabellenblatt anzeigt. Dann habe 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 koden omskriven. Om du inte uppdaterar något kan du inte ange något fel.
Var det en meinem-kod falsk?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alla tabeller finns i en Excel-Datei (Makro-aktiverad mall).
Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Timothy
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("veckodiskussion"). Välj
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range("A1") _
, Unikt:=False
lngLastRow = Sheets("veckodiskussion").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) _
, Unikt:=False
lngLastRow = Sheets("veckodiskussion").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) _
, Unikt:=False
lngLastRow = Sheets("veckodiskussion").Cells(Rows.Count, 1).End(x1Up).Row
End Sub
ich har följande 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.
Tillbaka till början är informationen från en tabell med angezeigt, obwohl men Code all 3 Tabellenblatt anzeigt. Dann habe 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 koden omskriven. Om du inte uppdaterar något kan du inte ange något fel.
Var det en meinem-kod falsk?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alla tabeller finns i en Excel-Datei (Makro-aktiverad mall).
Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Timothy
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("veckodiskussion"). Välj
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Range("A1") _
, Unikt:=False
lngLastRow = Sheets("veckodiskussion").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) _
, Unikt:=False
lngLastRow = Sheets("veckodiskussion").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) _
, Unikt:=False
lngLastRow = Sheets("veckodiskussion").Cells(Rows.Count, 1).End(x1Up).Row
End Sub