beim kopieren Zieldatei öffnen und schließen
Stefan
folgendes Problem:
freundlicherweise wurde mir hier folgender Code zur Verfügung gestellt:
Sub aamyCopy2()
Dim lngLastRow As Long
With Workbooks("Mappe1").Sheets(1)
lngLastRow = .UsedRange.Row + .UsedRange.Rows.Count - 1
' lngLastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
Selection.Copy Destination:=.Cells(lngLastRow, 1).Offset(1, 0)
End With
End Sub
Viele Grüße
Stefan
Anzeige