Bezüge Export

Hallo!
Und zwar habe ich folgendes Problem. Es geht um ein Makro welches Zellen und deren Formel ausliest und dann in eine separte Excel-Datei exportiert und speichert. Bezieht sich die Formel aus Zellbezügen des aktuellen Tabellenblattes, so ist das kein Problem (z.b. =H5 + H7). Diese werten übernommen, auch wenn in der neuen Excel das Ergegbnis ein anderes ist. (Der Sinn der Datei ist die Formeln zu sichern und später wieder zu importieren). Wenn der Zellbezug jedoch auf ein anderes Tabellenblatt innerhalb dieser Mappe hergestellt wird (z.B. =Tabelle1!H5 + H7) ensteht das Problem, das beim Speichern der Mappe in welche die Formeln und Bezüge exportiert wurden, Excel fragt wo die Bezüge ursprünglich herkommen, da nur =Tabelle1!H5 + H7 ausgelesen wird und nicht der gesamte Pfad. Es kommt zu einem =#Bezug! Fehler. Für jede einzelne Formeln fragt nun Excel nach den Pfad. Ich habe einige Sachen probiert, jedoch nicht mit gewünschten Ergebnis.
Habt ihr irgendwelche Ideen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Export() 'Mit dieser Prozedur werden Formeln der geöffneten Kalkulation in eine externe Mappe exportiert. _ Dim j As Integer Dim k As Integer Dim Preis As Variant Dim LS As Workbook Dim Pfad As String Application.ScreenUpdating = False ActiveSheet.Activate 'Deklarierung der geöffneten Kalkulation als "Datei" Datei = ActiveWorkbook.name 'Definierung des Pfades für Mappe1.xlsx-Datei Pfad = "C:\Users\VAFGBFC\Desktop\Verschiedene\Editor\Mappe1.xlsx" Set LS = Workbooks.Open(Pfad) Windows("Mappe1.xlsx").Activate Worksheets(1).Activate Windows(Datei).Activate 'Auslesen der Formeln aus der Kalkulation 'Windows(Datei).Activate Workbooks(Datei).Sheets(1).Activate Cells(1, 1).Select For j = 0 To 7 Preis = ActiveCell.Offset(0, j).Formula 'Aktivierung der Mappe1.xlsx-Datei Windows("Mappe1.xlsx").Activate Worksheets(1).Activate Cells(1, 1).Select ActiveCell.Offset(0, j).Value = Preis Workbooks(Datei).Sheets(1).Activate Cells(1, 1).Select Next Workbooks(Datei).Activate Workbooks("Mappe1.xlsx").Close savechanges:=True Application.ScreenUpdating = True End Sub

Hallo
ich denke, du gehst hier viel zu kompliziert vor.
Wenn du immer in die gleiche Ursprungsdatei zurück Importierts, dann müsste das reichen.


Sub ExportImport()
Dim WB As Workbook, LS As Workbook
Dim TB1 As Worksheet, TB2 As Worksheet
Dim Pfad As String, ImEx As String
Dim Rng As String
Rng = "A1:H1" ' anpassen
Pfad = "C:\Users\VAFGBFC\Desktop\Verschiedene\Editor\Mappe1.xlsx"
Set WB = ActiveWorkbook
Set TB1 = WB.Sheets(1)
Set LS = Workbooks.Open(Pfad)
Set TB2 = LS.Sheets(1)
ImEx = UCase(InputBox("(E)xport oder (I)mport der Formeln", "Formel speichern", "E"))
If ImEx = "E" Then ' Exportieren
TB1.Range(Rng).Copy TB2.Range("A1")
LS.Close savechanges:=True
ElseIf ImEx = "I" Then 'Importieren
TB2.Range(Rng).Copy TB1.Range("A1")
LS.Close savechanges:=False
WB.Save
Else
MsgBox "Nichts gemacht!"
End If
End Sub

In der Datei werden die Bezüge zu anderen Tabellenblättern zwar mit Bezug auf die Ursprungsdatei gespeichert,

='C:\Users\VAFGBFC\Desktop\Verschiedene\Editor\[DieseMappe.xlsm]Tabelle2'!B1*4

Bei der Rücklieferung in die Ursprungsdatei wird das wieder eleminiert, da zu dem Zeitpunkt wieder beide Dateien geöffnet sind.
Gruß UweD

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bezüge Export

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread