Guten Morgen zusammen,
ich bräuchte etwas hilfe mit Send Key.
Folgender Aufbau. Das Makro soll nur automatisiert 4 verschiedenen Bereiche
( z.B. A2:Y9 ) kopieren, eine E-Mail an einen vordefinierten Verteiler erstellen
und dann die 4 Bereiche in die E-Mail einfügen.
Wenn ich das für einen Bereich mache ist das auch überhaupt kein Problem.
Sobald ich jedoch einen 2ten bereich kopiere und einfügen will, fügt er 2 mal jeweils den letzten kopierten teil ein.
Ich komme hier einfach nicht weiter.
Auch mit Wait oder Delay hatte ich keinen Erfolg
Kennt sich hier jemand aus ?
Workbooks("test.xlsm").Sheets("versuch").Range("A2:y10").Copy
Application.SendKeys ("^v")
Application.SendKeys ("~")
Workbooks("test.xlsm").Sheets("versuch").Range("AA2:AM1a").Copy
Application.SendKeys ("^v")
Application.SendKeys ("~")
Vielen Dank schon mal im Vorraus.
Gruß Armin