VBA Copy & Paste Mappenübergreifend
03.04.2019 09:40:41
Frank_S
Ich möchte abends beim Schließen einer Mappe (mit div Userformen), die tagsüber eingegebenen Daten aus dieser Mappe kopieren und in eine Art Sammelmappe einfügen.
Aus meinen Recherchen hier und im Internet weiß ich, dass man beim Benutzen von .Cells immer exakt reverenzieren muss.
Das habe ich (denke ich wenigstens) ausreichend getan. Trotzdem gibt es Fehler.
Anbei der betreffende Codeschnipsel. Die Zielmappe heißt Protokolle.xlsx und befindet sich in _
einem Unterordner der Quellmappe.
Sub Export()
Dim erste_freie_Zeile_source As Integer
Dim erste_freie_Zeile_target As Integer
Dim BlattZiel As Worksheet
Dim BlattQuelle As Worksheet
If IsWorkbookOpen("Protokolle.xlsx") Then
'MsgBox "OFFEN"
Else
'MsgBox "Nicht offen"
Workbooks.Open ThisWorkbook.Path & "\Protokolle\Protokolle.xlsx"
End If
Set BlattQuelle = ThisWorkbook.Worksheets("tabAuswertung")
Set BlattZiel = Workbooks("Protokolle.xlsx").Worksheets("tabAuswertung")
erste_freie_Zeile_target = BlattZiel.Cells(Rows.Count, 2).End(xlUp).Row + 1
erste_freie_Zeile_source = BlattQuelle.Cells(Rows.Count, 2).End(xlUp).Row
With BlattQuelle
.Range("A3", Cells(erste_freie_Zeile_source, 59)).Copy Destination:=BlattZiel.Range( _
BlattZiel.Cells(erste_freie_Zeile_target), 1)
End With
Workbooks("Protokolle.xlsx").Save
Workbooks("Protokolle.xlsx").Close True
ThisWorkbook.Save
End Sub
Die Zeile zwischen With und End With produziert Fehler 1004.
Für Hilde wäre ich sehr dankebar.
Frank S.