Makro nach WB Aktivierung ausführen
04.06.2021 11:57:17
Thomas
ich habe ein kleines Problem bzw. eine Frage an euch Experten.
Aus einer bestehenden Arbeitsmappe kopiere ich per VBA einen bestimmten Bereich in ein anders Workbook und aktiviere dieses.
Jetzt hat das aktivierte Workbook ebenfalls eine Procedure die ich, nachdem die Daten aus der ursprünglichen Datei kopiert wurden ausgeführt haben möchte.
Sub SpcTransfer()
Dim wbStart As Workbook
Dim wbZiel As Workbook
Set wbStart = ThisWorkbook
Set wbZiel = Workbooks.Open("C:\Users\bernertt\Desktop/Tranfer_test.xlsm")
wbStart.Worksheets("QScore").Activate
Selection.End(xlToRight).Select
Selection.End(xlToLeft).Select
Range("A11:H11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
wbZiel.Worksheets("Tabelle1").Activate
Range("A5").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wbZiel.Activate
'Application.Run "Transfer_test.xlsm!Ablauf"
End Sub
Vielen Dank vorab für eure Hilfe.
Thomas