ich bräuchte bitte Eure Hilfe, ich komme einfach nicht weiter.
Ich habe eine Artikelliste (Tab"Artikelliste"), die leider sehr häufig aktualisiert werden muss. Damit der Anwender nicht in den vielen Spalten (ca. 100) suchen muss, habe ich in der gleichen Excelmappe eine Artikelansicht (Tab"Artikelansicht") erstellt, die per Eingabe der Artikelnummer alle relevanten Inhalte per Bezug übersichtlich anzeigt. Der User überschreibt dann die entsprechenden Felder. Die "ausgehenden" Informationen werden dann wieder in Listenform per Bezug nebeneinander aufgereiht (Tab"Technik"), sodaß sie per Copy + Paste und anhand des Autofilters, suche Artikelnummer; in die ursprüngliche Liste einkopiert werden kann. Danach werden die ursprünglichen Bezuge in der Artikelansicht wieder hergestellt.
Für diesen Copy + Paste & Bezugerstellung habe ich per Makrorecoder ein Makro erstellt, dass eigentlich super läuft. Es funktioniert aber leider nur für den Artikel 00999, den ich bei der Aufzeichnung benutzt habe.
Hier der Anfang des Makros (die eigentliche Artikelübersicht beginnt tatsächlich erst ab Spalte AG2)
Sheets("Artikelansicht").Select
Range("I2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Artikelübersicht").Select
ActiveSheet.Range("$AF$2:$DY$1000").AutoFilter Field:=2, Criteria1:="00999"
Sheets("Technik").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Artikelübersicht").Select
Range("AG622").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$AF$2:$DY$1000").AutoFilter Field:=2
...
Die Line mit dem Autofilter muss eine variable enthalten, aber ich weiss nicht wie.
Und auch die Linie Range("AG622") muss eigentlich variabal sein, weil mit einer anderen
Artikelnummer, soll auch eine andere Zeile angesprochen werden. Die Artikelnummer habe
ich per Bezug in diesem Tab auf AF2 eingespielt, darauf könnte man Bezug nehmen.
Wenn ich das aktuelle Makro laufen lasse, funktioniert bei Artikel 00999 also super, bei
00998 werden die Änderungen bei Artikel 00999 übertragen.
Ich hoffe, Ihr könnt mir helfen - vielen Dank schon mal!
Bürsti