Sali Heiko
Sensationell. Vielen Dank für den Code. Nun funktioniert alles wie ich es mir vorgestellt habe. Nur mit dem Makro Kundenauftrag
habe ich noch mühe. Dieses musste ich auf grund des geänderten Codes ebenfalls ändern.
Sobald über das Dropdownfeld Ja angewählt wird, sollte das unten stehende Makro sich ausführen. Dem ist leider nicht so.
Ich kopiere verschieden Zellen in der aktuellen Zeile. Danach öffne ich das File und will die Kopierten Daten ab der
Zelle A1 einfügen.
Der Befehl Range(
"A1"
).PasteSpecial erscheint mir dann gelb. Weshalb dies. Getestet habe ich es in einem leeren Blatt und dies
hat Funktioniert.
Sub
Kundenauftrag()
ActiveCell.Offset(0, -35).Range(
"B1:E1:R1,X1"
).
Select
ActiveCell.Offset(0, -0).Range(
"A1"
).Activate
Selection.Copy
Workbooks.Open
"Y:\90_Mitarbeitende\00_MAKRO NICHT LÖSCHEN\Eröffnung SD.xltx"
ActiveSheet.Unprotect
Range(
"A1"
).
Select
Range(
"A1"
).PasteSpecial
End
Sub