Autofilter
18.04.2021 12:35:07
Stefan
folgendes Problem
Ich habe eine Registerkarte "Materialschein" und "Lagerbestand"
im "Materialschein" werden unbekannte/ neue Artikel erkannt und ich gebe die neue Bezeichnung ein.
wenn ich im "Materialschein" in Pos. 1 einen Artikel eingebe bekannt oder unbekannt, wird er beim Ausführen des Makros immer übernommen.
ab Pos. 2 Filtert Excel korrekt und nur neue Artikel werden übernommen.
Makro:
Sub Update_Stammdaten()
' Update_Stamdaten Makro
' Kopie des Ursprungsblattes
Sheets("Materialschein").Select
Range("A14:P35").Select
Selection.Copy
Sheets("temp2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
' Autofilter auf "Neue Artikel (Spalte N)
Selection.AutoFilter
ActiveSheet.Range("$A$1:$P$22").AutoFilter Field:=14, Criteria1:= _
"=neuer Artikel", Operator:=xlAnd
'Kopie der neuen Werte
Range(Selection, Selection.End(xlDown)).Select
Range("C1:C22,O1:O22").Select
Selection.Copy
'Einfügen der neuen Artikel in den Lagerbestand
Sheets("Lagerbestand").Select
Range("B1").Select
Selection.End(xlDown).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column - 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Columns("A:A").Select
Application.CutCopyMode = False
Selection.NumberFormat = "@"
' Bereinigungen
Sheets("temp2").Select
Range("F32").Select
ActiveSheet.Range("$A$1:$O$22").AutoFilter Field:=14
Cells.Select
Selection.ClearContents
Sheets("Lagerbestand").Select
Range("b2").Select
Range(Selection, Selection.End(xlDown)).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column - 1).Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("B1").Select
Selection.End(xlDown).Select
End Sub
Vielleicht kann jemand Helfen.
Danke schon mal für Eure Hilfe
Gruß
Stefan