Clever-Excel-Forum

Hallo Ralf,
Das trifft es nicht ganz, wissentlich wird das Kopieren ja nicht "ausgeschaltet". :-o

Na komm, André, wo bleibt Dein Humor?
Aber gut, überarbeitet:

Sub Einkaufen()
With MeinAuto
   .MotorAn
   Call KeinSprit
   .FahrLos
End With
End Sub

:05:

Auch Hallo,

(28.06.2016, 14:43)lapunta schrieb: [ -> ]

Code:

Workbooks.Open "C:\Users\Frank\Documents\Aktien\Shareselect\MFormula"

Sheets("Sweep").Range("A7:M500").Clear

With Worksheets("Sweep")
  Range("A6").Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
End With

Wo in deiner Datei steht der Code? in einem allgemeinen Modul oder einem Klassenmodul? Du brauchst es nicht selektieren sondern mache es direkt

Zumal ja

A6 im AKTIVEN Blatt ansteuert.
Dies muss ja nicht zwangsläufig "Sweep" sein!

Aber gut:
Zum eigentlichen Problem wurde glaube ich alles geschrieben.

Gruß Ralf