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
Dieser Code kopiert in Quelldateien markierte Einträge in eine Ziedatei und hängt dabei die Daten an. Gibt es die Möglichkeit die Zieldatei im Hintergrund automatisch zu öffnen und nach dem Kopieren wieder zu schließen, sodaß die Zieldatei nicht ständig geöffnet sein muß bzw. der Anwender dieses nicht selbst machen muß?Viele Grüße
Stefan