VBA pasteFormats Aktivierung der Ziel-Arbeitsblatt

Ich habe ein Problem mit dem Einfügen SpaltenVBA pasteFormats Aktivierung der Ziel-Arbeitsblatt

Set SourceWBsht = Thisworkbook.Worksheets("Source") 
    Set DestinationWBsht= Thisworkbook.Worksheets("Destination") 
    SourceWBsht.Range("A1:Z40").EntireColumn.Copy 
    DestinationWBsht.Range("A1:Z40").EntireColumn.PasteSpecial _ 
    Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

    SourceWBsht.Range("A1:Z40").EntireRow.Copy 
    DestinationWBsht.Range("A1:Z40").EntireRow.PasteSpecial _ 
    Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Das Problem ist VBA automatisch das Zielblatt aktiviert, Irgendwie versuche ich, es zu vermeiden. Irgendwelche Ideen?

Danke.

Quelle

2017-03-06 Ahmed AbdelKhalek

in meiner Excel 2103 Ihr Code wird nicht aktiviert, "Ziel" Arbeitsblatt. Es kann eine Aussage sein, bevor oder nachdem Ihr Code dies tut: gehen Sie durch Ihren Code und checken Sie danach – user3598756

Ja, mit dem Debugging-Tool. keine Probleme damit. Es aktiviert andere Arbeitsblätter nur im vollständigen Code. –

Ich bekomme keine "Ziel" -Blattaktivierung in irgendeiner Weise. Vielleicht "Ziel" Blatt ist die _aktive_, wenn Sie das Makro – user3598756

Sie können so etwas wie dies versuchen:

DestinationWBsht.Range("A1:Z40").value = SourceWBsht.Range("A1:Z40").value

Edit 1: Nach dem Kommentar

SourceWBsht.Range("A1:Z40").Copy 
DestinationWBsht.Range("A1:Z40").PasteSpecial xlPasteFormats 
Application.CutCopyMode = False

Quelle

2017-03-06 09:17:57 BOB

Ich versuche, die Spaltenformate und Farben einzufügen, keine Werte. –

@AhmedAbdelKhalek Ich habe den Beitrag bearbeitet – BOB

VBA pasteFormats Aktivierung der Ziel-Arbeitsblatt

Antwort

Verwandte Themen