Code funktioniert nicht ohne .Activate
18.06.2019 13:08:12
Doro
eigentlich steht im Betreff schon meine ganze Frage ;-)
Ich möchte aus Worksheets(AuswTabName(1)) Spalte A bis E kopieren und in Worksheets(AuswTabName(2)) bis Worksheets(AuswTabName(6)) einfügen. Hier der entsprechende Auszug aus meinem Code:
With .Worksheets(AuswTabName(1))
.Activate
.Range(Columns(1), Columns(5)).Copy
End With
For i = 2 To AnzAusw
.Worksheets(AuswTabName(i)).Columns(1).PasteSpecial (xlPasteValuesAndNumberFormats)
Next i
Application.CutCopyMode = False
Ich würde gerne die ersten vier Zeilen durch
.Worksheets(AuswTabName(1)).Range(Columns(1), Columns(5)).Copy
(Ich mag .Activate nicht). Dann bekomme ich entweder einen Laufzeitfehler (438?), oder Excel stürzt direkt komplett ab. Kann das jemand lösen / erklären? Würde das sooo gerne verstehen!
Vielen Dank im Voraus :-)
Doro