|
Hallo Thomas,
was bedeutet eigentlich Sali?
Hier ein Beispiel, wie du die Zellen in die andere Datei kopieren kannst.
Viel Erfolg wünscht Heiko
Public Sub Kundenauftrag()
'Hier die Datei eintragen, in die kopiert wird.
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
'die Zeile ermitteln
lngZeile = ActiveCell.Row
'Quelle und Senke festlegen
Set wksQuelle = ActiveSheet
Set wkbSenke = Workbooks.Open(c_strSenke)
Set wksSenke = ActiveSheet
'Blattschutz aufheben
wksSenke.Unprotect
'Zellen kopieren
wksQuelle.Cells(lngZeile, 1).Copy Destination:=wksSenke.Cells(1, 1) 'Spalte A
wksQuelle.Cells(lngZeile, 2).Copy Destination:=wksSenke.Cells(1, 2) 'Spalte B
wksQuelle.Cells(lngZeile, 3).Copy Destination:=wksSenke.Cells(1, 3) 'Spalte C
wksQuelle.Cells(lngZeile, 4).Copy Destination:=wksSenke.Cells(1, 4) 'Spalte D
wksQuelle.Cells(lngZeile, 6).Copy Destination:=wksSenke.Cells(1, 6) 'Spalte F
wksQuelle.Cells(lngZeile, 7).Copy Destination:=wksSenke.Cells(1, 7) 'Spalte G
wksQuelle.Cells(lngZeile, 11).Copy Destination:=wksSenke.Cells(1, 11) 'Spalte K
wksQuelle.Cells(lngZeile, 12).Copy Destination:=wksSenke.Cells(1, 12) 'Spalte L
Set wksQuelle = Nothing
Set wksSenke = Nothing
Set wkbSenke = Nothing
End Sub
|