Makro erweitern
20.06.2024 08:14:09
tom
ich habe hier ein wahrscheinlich kleines Problem komme aber trotzdem nicht auf
die richtige Lösung. Wäre schön wenn mir hier jemand auf die Sprünge hilft.
Also ich habe eine Datei die die beiden Tabellenblätter aktuell und archiv enthält.
In aktuell wird momentan vorhandene Ware eingetragen.
Die Daten befinden sich in den Spalten a bis p ab Zeile 11.
In Spalte A steht immer a für aktiv. Ist die Ware nicht mehr vorhanden wird in Spalte A ein i für inaktiv eingetragen. Am Tagesende werden alle Zeilen in denen in Spalte A ein i steht nach Blatt
archiv kopiert und in aktuell entsprechend gelöscht. Dazu habe ich das unten aufgeführte Makro geschrieben. Allerdings muss ich immer erst nach i filtern, da sonst alle Datensätze rüberkopiert werden.
Wie muss ich das Makro abändern dass ohne Filterung nur die inaktiven Datensätze kopiert und
anschließend gelöscht werden?
Danke
Tom
Public Sub Archivierung()
Dim loLetzteQuelle As Long, loLetzteZiel As Long
Application.ScreenUpdating = False
With Worksheets("aktuell")
loLetzteQuelle = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range(.Cells(11, "A"), .Cells(loLetzteQuelle, "P")).Copy
With Worksheets("archiv")
loLetzteZiel = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
If loLetzteZiel 11 Then loLetzteZiel = 11
.Paste Destination:=.Cells(loLetzteZiel, "A")
.Activate
.Range("A11").Select
End With
.Range(.Cells(11, "A"), .Cells(loLetzteQuelle, "P")).ClearContents
.Activate
.Range("A11").Select
End With
Application.CutCopyMode = False
End SubAnzeige