Spoštovana skupnost
ich habe folgendes Anliegen und habe bereits mehrere Vadnice durchgeschaut. Doch leider klappt es immernoch nicht.
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt (TEDENSKA RAZPRAVA) 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. Torej hab ich"CopyToRange" v kodi je vključena. Bei nochmaligem updaten kann dann aber eine Fehlermeldung und es wurde nichts mehr angezeigt.
Je bil ist an meinem Code falsch?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alle Tabellenblätter sind in einer Excel-Datei (predloga z omogočeno makro).
Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Timotej
Sub Filter_TeamUpdate()
'
' Makros Filter_TeamUpdate
'Timotee
'
lngLastRowANNA = Listi("ANNA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
lngLastRowJULIA = Listi("JULIA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
lngLastRowANDREA = Listi("ANDREA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Row
Listi("TEDENSKE RAZPRAVE").Izberite
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Liste("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Obseg("A1") _
, Unique:=False
lngLastRow = Listi("TEDENSKA RAZPRAVA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Liste("KRITERIJI").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Unique:=False
lngLastRow = Listi("TEDENSKA RAZPRAVA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
Sheets("ANDREA").Range("A1:H" & lngLastRowANDREA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Liste("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Unique:=False
lngLastRow = Listi("TEDENSKA RAZPRAVA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
End Sub
ich habe folgendes Anliegen und habe bereits mehrere Vadnice durchgeschaut. Doch leider klappt es immernoch nicht.
Ich hab 3 Tabellenblätter und möchte eine ganze Zeile in ein neues Tabellenblatt (TEDENSKA RAZPRAVA) 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. Torej hab ich"CopyToRange" v kodi je vključena. Bei nochmaligem updaten kann dann aber eine Fehlermeldung und es wurde nichts mehr angezeigt.
Je bil ist an meinem Code falsch?
Wie bekomme ich bestimmte Zeilen aus mehreren Tabellenblättern in eine neue Übersichtstabelle? Alle Tabellenblätter sind in einer Excel-Datei (predloga z omogočeno makro).
Ich wäre sehr froh, wenn hier jemand helfen kann.
Herzlichen Dank im Vorfeld.
Timotej
Sub Filter_TeamUpdate()
'
' Makros Filter_TeamUpdate
'Timotee
'
lngLastRowANNA = Listi("ANNA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
lngLastRowJULIA = Listi("JULIA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
lngLastRowANDREA = Listi("ANDREA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
lngLastRow = ActiveSheet.UsedRage.Row(ActiveSheet.UsedRage.Rows.Count).Row
Listi("TEDENSKE RAZPRAVE").Izberite
Sheets("ANNA").Range("A1:H" & lngLastRowANNA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Liste("CRITERIAS").Range("A2:H" & lngLastRowANNA), CopyToRange:=Obseg("A1") _
, Unique:=False
lngLastRow = Listi("TEDENSKA RAZPRAVA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
Sheets("JULIA").Range("A1:H" & lngLastRowJULIA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Liste("KRITERIJI").Range("A2:H" & lngLastRowJULIA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Unique:=False
lngLastRow = Listi("TEDENSKA RAZPRAVA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
Sheets("ANDREA").Range("A1:H" & lngLastRowANDREA).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Liste("CRITERIAS").Range("A2:H" & lngLastRowANDREA), CopyToRange:=Range("A" & lngLastRow + 1) _
, Unique:=False
lngLastRow = Listi("TEDENSKA RAZPRAVA").Celice(vrstice.Število, 1).Konec(x1Up).Vrstica
End Sub