Vor Paste-Befehl Bereich löschen

[schauan]

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

[RPP63]

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

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

:05:

[Steffl]

Auch Hallo,

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

Code:

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

[RPP63]

Zumal ja

Code:

With Worksheets("Sweep")
 Range("A6").Select

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