VBA Bereich in andere Datei kopieren
30.12.2023 00:47:49
Alex99
Ich habe folgende Problemstellung:
Ich habe Datei A (woraus ich das Makro starte) und Datei B (in welche ich Daten von Datei A hineinkopieren möchte, ohne Formeln etc.)
Ich habe in Datei A bereits einen Button, der ein Makro ausführt, dieser soll gleichzeitig die Daten (in meinem Fall Rechnungsdaten (A10:F97)) kopieren und in eine andere (geschlossene) Datei einfügen (Diese ist bereits vorhanden). Die Daten sollen immer unterhalb der vorhandenen Daten geschrieben werden, mit einer Zeile Abstand(offset (2))
Folgenden Code habe ich bereits probiert. Er öffnet zwar die Datei B, aber hat dann keinen Bezug zum Tabellenblatt mehr. (somit kopiert er die Daten nicht)
(Hier noch kurze Infos:
Datei2: Hier habe ich ähnlich wie bei wbName eine Zelle hinterlegt, welcher zu einem Link am Laufwerk führt.
wbName: in dieser Zelle steht ausschließlich der Name der Datei B (Auswertung_2023.xlsx) )
Dim sPfad As String
Dim wbQuelle As Workbook
Dim wbName As String
wbName = Sheets("Produktübersicht-Einstellungen").Range("I12").Value
'Screenupdating und PopUps deaktivieren
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Dateipfad der Quelldatei
sPfad = Datei2
'Prüfen, ob Datei existiert
'If Dir(sPfad) > "" Then
'Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(sPfad)
'Daten kopieren
ThisWorkbook.Worksheets("Rechnung").Range("A11:F97").Copy
'Daten einfügen
' Workbooks("sPfad").Worksheets("Rechnungen").Select
' Workbooks("wbName").Worksheets("Rechnungen").PasteSpecial Paste:=xlPasteValues
Workbooks("sPfad").Worksheets("Rechnungen").Range("A" & Workbooks("sPfad").Worksheets("Rechnungen").Rows.Count).End(xlUp).Offset (2)
'Arbeitsmappe schließen
wbQuelle.Close SaveChanges:=True
'End If
'Screenupdating und PopUps aktivieren
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Ich bitte um euere Mithilfe das Problem zu lösen.
Vielen Dank im Voraus und schöne Feiertage!
LG Alex