Public
Sub
Kundenauftrag()
Const
c_strSenke
As
String
=
"Y:\90_Mitarbeitende\00_MAKRO NICHT LÖSCHEN\Eröffnung SD.xltx"
Dim
wksQuelle
As
Excel.Worksheet
Dim
wkbSenke
As
Excel.Workbook
Dim
wksSenke
As
Excel.Worksheet
Dim
lngZeile
As
Long
lngZeile = ActiveCell.Row
Set
wksQuelle = ActiveSheet
Set
wkbSenke = Workbooks.Open(c_strSenke)
Set
wksSenke = ActiveSheet
wksSenke.Unprotect
wksQuelle.Cells(lngZeile, 1).Copy Destination:=wksSenke.Cells(1, 1)
wksQuelle.Cells(lngZeile, 2).Copy Destination:=wksSenke.Cells(1, 2)
wksQuelle.Cells(lngZeile, 3).Copy Destination:=wksSenke.Cells(1, 3)
wksQuelle.Cells(lngZeile, 4).Copy Destination:=wksSenke.Cells(1, 4)
wksQuelle.Cells(lngZeile, 6).Copy Destination:=wksSenke.Cells(1, 6)
wksQuelle.Cells(lngZeile, 7).Copy Destination:=wksSenke.Cells(1, 7)
wksQuelle.Cells(lngZeile, 11).Copy Destination:=wksSenke.Cells(1, 11)
wksQuelle.Cells(lngZeile, 12).Copy Destination:=wksSenke.Cells(1, 12)
Set
wksQuelle =
Nothing
Set
wksSenke =
Nothing
Set
wkbSenke =
Nothing
End
Sub