Arbeitsmappe im Hintergrund öffnen und scchließen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
vielen Dank für deine Antwort. Ich bin was VBA angeht leider ein Laie. Alle Dateien, sowohl die Quelldateien wie auch die Zieldatei befinden sich auf dem selben Netzlaufwerk. Das ist sichergestellt. Die Quelldateien sind geöffnet. Das ist okay. Die Zieldatei soll über einen Aufruf geöffnet werden, dann die vom Anwender in der Quelldatei selectierten (markierten) Daten per Klick auf einen Button in die Zieldatei kopiert werden (an die vorhandenen Daten angehängt) und die Zieldatei jetzt wieder geschlossen werden. Hintergrund ist folgender:
In verschiedene Dateien (Quelldateien) werden ständig Daten eingetragen, diese sollen in einer Gesamtdatei zusammengeführt werden. Die Dateien haben alle die gleiche Struktur. Diese Gesamtdatei soll aber von dem Anwender nicht mehr quasi manuell angefaßt werden.
Ist das möglich?
Bisher wurde mir freundlicherweise folgender Code zur Verfügung gestellt, der aber nicht so richtig funktioniert. Es kommt die Meldung : Laufzeitfehler.

Sub myCopy3()
Dim objXLApp As Excel.Application
Dim objXLABC As Excel.Workbook
Dim objXLWorkbooks As Excel.Workbooks
Dim neuWkb
Dim lngLastRow As Long
Dim mySelection()
Dim myCounter()
Dim i As Long
mySelection = Selection
ReDim myCounter(1 To UBound(mySelection))
For i = LBound(mySelection()) To UBound(mySelection())
myCounter(i) = mySelection(i, 1)
Next
Set objXLApp = New Excel.Application
Set objXLWorkbooks = objXLApp.Workbooks
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set objXLABC = objXLWorkbooks.Open("C:\Stefan\Mappe2.xls")
neuWkb = objXLABC.Name
With objXLWorkbooks(neuWkb).Sheets(1)
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = LBound(mySelection()) To UBound(mySelection())
.Cells(lngLastRow + i, 1).Offset(1, 0) = myCounter(i)
Next
End With
objXLWorkbooks(neuWkb).Close savechanges:=True
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Set objXLApp = Nothing
Set objXLWorkbooks = Nothing
End Sub

Vielen Dank
Stefan

Beliebteste Forumthreads (12 Monate)

Arbeitsmappe im Hintergrund öffnen und scchließen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arbeitsmappe im Hintergrund öffnen und scchließen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread