Office: Gefilterte Inhalte automatisch kopieren und auf neuem Blatt

Hallo,

und wieder hab ich ein Problem. :-(
Wie in der Überschrift beschrieben möchte ich ein Filterergebnis bearbeiten.
Es geht um eine Mappe mit 4 Blättern. Blatt1 dient als eine Art Eingabe/Bearbeitungs-Maske. So wird auf Blatt eins eine Artikelnummer eingegeben und dann auf Blatt 3 danach gefiltert. Jetzt soll das Ergebnis des Filters kopiert und an eine bestimmte Stelle auf Blatt1 eingefügt werden. Nach der Bearbeitung sollen die Daten dann wieder zurück ins Blatt3 geschrieben werden.
Ich hab das Ganze mal mit einem Macro versucht um zu sehen wie sich das Lösen ließe, leider springt das Macro immer an der selben Stelle mit einem Fehler raus.
Sub Makro5()

ActiveCell.FormulaR1C1 = "17600"
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("NST").Select
ActiveCell.Offset(-3271, -8).Range("A1").Select' hier gibts immer einen Rauswurf 1004 Laufzeit oder Objektfehler
ActiveCell.Range("A1:I2344").Select
Selection.Copy
Sheets("Lagerverwaltung").Select
ActiveCell.Offset(5, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

Außerdem soll das Ganze natürlich nicht nur mit diesem Bereich funktionieren sondern jedes mal die gesamten Filterergebnisse umfassen.

Kann mir jemand weiter helfen?

 

auf select solltest Du in VBA verzichten, das ist zu 99,9% nicht notwendig.
schreibe
Range("A1:I2344").Copy

Gruß Hajo

 

Hallo Hajo,

hab das ganze mal ein wenig umgeändert da ja gar nicht zwischen den Blättern hin und her Selectet werden muss. aber jetzt kommt der Fehler das das Objekt die Methode nicht unterstützt. :-(

Sub Filterbereich_kopieren()

ActiveCell.FormulaR1C1 = "17600"
ActiveCell.Offset(1, 0).Range("A1").Select
'Sheets("NST").Select
Sheets("NST").Offset(-3271, -8).Range("A1").Select Sheets("NST").Range("A1:I2344").Copy
Selection.Copy
'Sheets("Lagerverwaltung").Select
Sheets("Lagerverwaltung").Offset(5, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

Gruß Fussel

 

von A1 kannst Du nicht 8 spalten nach links und auch nicht 3271 Zeilen nach oben gehen.

Gruß Hajo

 

Guten Morgen zusammen,

@ Hajo da hast du natürlich recht das geht nicht, hat mich auch sehr verblüfft ein - vor den Zahlen zu sehen, hab das Ganze jedoch mit dem macrorecorder genau so aufgezeichnet.Hab das Ganze dann nochmal versucht und siehe da folgender Code wurde vom Macro-Recorder geliefert:
Sub Makro2()
ActiveCell.Range("A1:C1").Select
ActiveCell.FormulaR1C1 = "17600"
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("NST").Select
ActiveCell.Range("A1:I2344").Select
Selection.Copy
Sheets("Lagerverwaltung").Select
ActiveCell.Offset(5, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
und damit läuft es dann.
Bin mir nur nicht ganz sicher wie ich jetzt die Bearbeitetn Zeilen von einem Blatt1 zurück auf Blatt 3 bekomm. Außerdem solls ja nicht nur mit 17600 sondern mit allen Artikeln funktionieren und da seh ich noch kein Land.

Gruß Dirk