Office: Von einem Workbook ins andere kopieren "Objekt unterstützt..."

ablage01 · 8. April 2013

Guten Abend zusammen,

ich bin gerade dabei aus einem Inputdokument bestimmte Zeilen in ein anderes Dokument zu kopieren und es abzuspeichern. Leider bekomme ich die Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht".
Was mache ich hier falsch? Vielen vielen Dank für Eure Hilfe *Smilie

Code:

Sub x()
Dim i As Long, Lrow As Long

File = "InputListe.xlsx"
With ThisWorkbook.Sheets("Tabelle1")
Lrow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 2 To Lrow
id = .Range("A" & i)
If id "1.00" Then
SaveFileName id, File
End If
Next i
End With
End Sub
//Bis hierhin ist alles i.O.

Sub SaveFileName(xIdNr As Variant, xFileName As String)
Dim ShCnt, i As Integer
FileNameNew = xIdNr & ".xls"
Vrz = ThisWorkbook.Path & "\"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Vrz & FileNameNew, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False, ConflictResolution:=True
//Es speichert das (leere) Dokument korrekt im Stammverzeichnis, tut also was es soll

Workbooks("InputListe.xlsx").Worksheets("Tabelle1").Cells(2, 2).Copy
Workbooks(FileNameNew).Worksheets("Tabelle1").Cells(3, 3).Paste
//Hier stoppt der Debugger und gibt die Fehlermeldung aus

Workbooks(FileNameNew).Close savechanges:=True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Hajo_Zi · 10. April 2013

schreibe
Workbooks("InputListe.xlsx").Worksheets("Tabelle1").Cells(2, 2).Copy _
Workbooks(FileNameNew).Worksheets("Tabelle1").Cells(3, 3)

ablage01 · 10. April 2013

Danke hat geklappt,

wieso klappte meine Methode nicht? (habe es aus einem anderen Beitrag aufgeschnappt)

ablage01 · 11. April 2013

Nochmal eine Frage, vielen Dank nochmal dass Du mir geholfen hast, hat mich weit gebracht.
Jetzt möchte ich aber von einer zweiten Datei die auch geöffnet ist was reinkopieren, aber das klappt nicht...(Index außerhalb des gültigen Bereichs)

Workbooks("Datei1.xlsx").Worksheets("Blatt1").Cells(2, 2).Copy _
Workbooks(FileNameNew).Worksheets("Tabelle1").Cells(3, 3)
Bis hierhin kopiert er alles richtig

Workbooks("Datei2.xlsx").Worksheets("1.00").Cells(2, 2).Copy _
Workbooks(FileNameNew).Worksheets("Tabelle1").Cells(4, 4)

Hier stoppt der Debugger: Index außerhalb des gültigen Bereichs
Der Worksheet 1.00 in Datei2.xlsx exisitiert definitiv

Hier nochmal der gesamte Code:

Code:

Sub x()
Dim i As Long, Lrow As Long

File = "InputListe.xlsx"
With ThisWorkbook.Sheets("Blatt1")
Lrow = .Cells(.Rows.Count, "A").End(xlUp).Row
For zaehl = 2 To 10
id = .Range("A" & zaehl)
If id "1.0" & zaehl Then
SaveFileName id, File
End If
Next zaehl
End With
End Sub

Sub SaveFileName(xIdNr As Variant, xFileName As String)
Dim ShCnt, i As Integer
FileNameNew = xIdNr & ".xls"
Vrz = ThisWorkbook.Path & "\"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Vrz & FileNameNew, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False, ConflictResolution:=True

Workbooks("InputListe.xlsx").Worksheets("Blatt1").Cells(2, 2).Copy _
Workbooks(FileNameNew).Worksheets("Tabelle1").Cells(3, 3)
'Bis hierhin alles OK!
Workbooks("InputSheets.xlsx").Worksheets("1.00").Cells(2, 2).Copy _
Workbooks(FileNameNew).Worksheets("Tabelle1").Cells(4, 4)
'Fehler!

Workbooks(FileNameNew).Close savechanges:=True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 11. April 2013

in Datei Datei2.xlsx gibt es keine Tabelle mit dem Namen 1.00

ablage01 · 11. April 2013

Es gibt ein Sheet 1.00. Diese Information habe ich nachträglich hinzugefügt, sorry dafür.

Ich kann auch irgendeinen belibiegen Namen eingeben als Sheetname, klappt nicht.

Hajo_Zi · 11. April 2013

das Change Ereignis in der Zieldatei hat die Tabelle geschützt.

ablage01 · 9. Februar 2021

von Hajo_Zi

das Change Ereignis in der Zieldatei hat die Tabelle geschützt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 11. April 2013

also war meine Vermutung richtig. Hebe den Schutz wieder auf.

.Unprotect "Passwort"

ablage01 · 11. April 2013

Sorry ich habe Dich gerade dann falsch verstanden. Ich wusste bzw weiß immernoch nicht was ein Change Ereignis ist. Kein Dokument hat eine Passwortsperre falls Du das meinst.

das eigenartige ist, wenn ich den Kopiervorgang von Datei1 ausklammere, dann klappt der Kopiervorgang von Datei2.

ablage01 · 11. April 2013

SORRY hab glaube ich den Fehler gefunden, die Datei in der ich das Makro ausführe hat die Endung xlsm
aber ich lese eine Datei mit der Endung xlsx. (sehr sehr dummer Fehler)

Könnte der Debugger "genauer" anzeigen wo er Probleme hat, würde ich das ja sofort mitbekommen - Schade ich dachte das hätte was mit den Sheetbezeichnungen zu tun..

EDIT: Jetzt klappt es, danke!!!

Kurze Frage: Kann ich die bestimmte Zellen von Datei1 und Datei2 und vergleichen und durch eine eigene Logik auswählen welche gespeichert werden soll?
Wie ist die Methode zur Abfrage des Zelleninhalts? Wenn ich das noch hätte wäre ich rundum glücklich *Smilie

Office: Von einem Workbook ins andere kopieren "Objekt unterstützt..."

Von einem Workbook ins andere kopieren "Objekt unterstützt..."

Von einem Workbook ins andere kopieren "Objekt unterstützt..."

Von einem Workbook ins andere kopieren "Objekt unterstützt..."

Von einem Workbook ins andere kopieren "Objekt unterstützt..."

Von einem Workbook ins andere kopieren "Objekt unterstützt..." - Similar Threads - Workbook kopieren Objekt

VBA Werte & Format Kopieren in neues Workbook

Tabelle in neues Workbook kopieren

Range Array von einem Workbook in ein anderes kopieren

Sheets in ein anderes Workbook kopieren/verschieben

Neues Workbook öffnen, Worksheet rein kopieren....

Neues Workbook erstellen, Daten kopieren und unter neuem Namen speichern

Auto. kopieren einer Range von einem Workbook in ein anderes - unterschiedliche Pfade