Office: range(cells...) funktioniert icht

Hi.

bei folgender Stelle kommt Fehlermeldung
Laufzeitfehler 1004, Andwendungs oder Objektdefinierter Fehler

Code:

verwende ich stattdessen diesen Code, kommt keine Fehlermeldung.
Code:

Der erste Code funktioniert an anderer Stelle einwandfrei. Allerdings ist es dort eine andere Arbeitsmappe.

Irgendwie kommt er mit der Rangezuweisung nicht klar.
Ich verstehe nur nicht wieso?

:)

 

hi

with Workbooks(Datei2).Worksheets(aktMonat)
.Range(.Cells(letzteZeile - 7, 1), .Cells(letzteZeile, 1)).Copy
end with

 

hi chris,

funktioniert! Aber wieso mit with und ohne nicht?

 

Hi

das with hat damit gar nichts zu schaffen! *Smilie


Workbooks(Datei2).Worksheets(aktMonat).Range(Workbooks(Datei2).Worksheets(aktMon at).Cells(letzteZeile - 7, 1), Workbooks(Datei2).Worksheets(aktMonat).Cells(letzteZeile, 1)).Copy

so geht es auch, nur mit With ist es kürzer
du hast vor deinen anderen Cells keine Angabe der Herkunft gehabt!
(die Referenz darauf war nicht gegeben)

 

Hi Chris,

Das kann ich nicht nachvollziehen, denn
Code:

hat an anderer Stelle funktioniert. Es wurde da jediglich eine andere Mappe angesprochen.
Code:

Na seis drum. Jetzt jetzt geht es ja.
Danke*wink.gif*

 

Hallo Mario

*wink.gif*, doch kannst du.

Sheets(1).range(cells(1,1),cells(1,5)).copy

führe das im ersten Tabellenblatt aus...->
geht ohne Probleme.

Nun wechsle mal auf das zweite Tabellenblatt und führe erneut den Code aus.
Ich glaube zu wissen das dann ein 1004 kommt. *wink.gif*