Laufzeitfehler 424 "Objekt erforderlich"
04.07.2019 15:40:53
Natalia
ich soll ein Makro erstellen obwohl ich (noch) nicht so viele Kenntnisse darüber besitze.
ich habe einen Code erstellt dass sollte aus der Excel Tabelle einen Inventur Nummer aus der Liste "Übersicht" raussuchen und in der nächste Tabelle diese mit Filter aus anderen Nummer raussuchen, die entsprechenden Zeilen kopieren und in eine Neue Excel Datei speichern und dort noch Mal das Tabellen Name und die Name der Datei unter diesem Nummer zu speichern. Es sind ca.190 Daten.
Und bei der Erstellung des Codes kommen oft Fehler vor und ich leider kann diese nicht richtig beheben.
Das Code lautet:
Sub Kostenstelle()
Dim Zeile As Integer
Dim Wert As Long
' Inventur Makro
Zeile = 4
Wert = Cells(Zeile, "B").Value
Do While Zeile = Wert
Zeile = Zeile + 1
ActiveWorkbook.Sheets("Übersicht").Select
Cells(Zeile, "B").Value.Select
Selection.Copy
Sheets("Datenbasis Original").Select
ActiveSheet.Range("$A$3:$X$7831").AutoFilter Field:=6, Criteria1:= _
Cells(Zeile, "B").Value
Rows("1:7832").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
Rows("1:1").Select
ActiveSheet.Paste
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = Wert
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = Wert
ActiveWorkbook.SaveAs Filename:= _
"Z:\Desktop\Inventur\Wert.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Sheets("Übersicht").Select
Loop
End Sub
Tausend Mal Danke für die Mühe
Anzeige