Office: Laufzeitfehler 1004, automatischer Kopiervorgang

Guten Morgen liebe Leutz,

ich habe ein Makro erstellt, in der u.a. folgendes vorkommt:

Sheets("Tagesausgangsliste").Range("J3").Select
Selection.AutoFill Destination:=Range("J3:J200")

und beim Ausführen des Makro bleibt dieses mit der Fehlermeldung: "Laufzeitfehler 1004, die AutoFill-Methodes des Range Objektes konnte nicht ausgeführt werden" vor der zweiten Zeile stehen. Und ich weiß nicht warum.

Ich möchte eigentlich den Inhalt des Feldes J3 kopieren auf die nächsten Zeilen darunter. Diesen Vorgang habe ich mit dem Recorder aufgezeichnet und in ein Makro gepackt, mit der Folge der oben beschriebenen Fehleranzeige. Bin echt dankbar für eine Hilfestellung.

Beste Grüße
Dhil

 

arbeite ohne select, das ist zu 99,9% nicht notwendig.
Sheets("Tagesausgangsliste").Range("J3").AutoFill Destination:=Range("J3:J200")

 

Hallo, Hajo,

vielen Dank für Deine Hilfe.
Jedoch wird mir nach Abänderung der Befehls auf die vorgeschlagene Lösung immer noch der gleiche Fehler angezeigt.
Muß wohl irgendwo anderes dran liegen?

Beste Grüße Dhil

 

ich sehe Deine Datei nicht, bei mir geht es.

 

Hallo,

die Datei hoch zu laden ist schwierig, da schon zu viele firmeninterne Informationen verbaut sind.
Vielleicht hat jemand noch eine Idee, warum der Fehler auftaucht.
Wäre nett.

Beste Grüße Dhil

 

Du könntest vielleicht mal versuchen:

Code:

worksheets("tagesausgangsliste").range("j3").copy _
  destination:=worksheets("tagesausgangsliste").range("j4:j200")

.autofill ist nicht immer das, was man will. Aber das Makro hast Du wohl aufgezeichnet, indem Du den "Anfasser" rechts unten an der Zelle genommen und nach unten gezogen hast, oder?

Es gibt da leichte Unterschiede... Das .copy würde die Formeln anpassen, wenn eine in J3 steht. Das .autofill würde auch Werte z.B. hochzählen. Willst du beides verhindern, bleibt noch der Weg über .copy und dann .pastespecial in einer 2. Anweisung.

Gruß, Michael

 

Hallo Michael,

nun geht es!
Das Ding tut nun genau das, was ich will.
Vielen, vielen Dank.

Beste Grüße
Dhil