Umschreiben von Open Office Makro in Excel Makro
09.03.2015 08:26:46
Open
Ich habe folgenden VBA Code für ein Makro in Open Office, welches bestimmte Teile der Tabellen eines Excel Dokuments in bestimmte Teile der Tabellen eines anderen Dokuments kopieren soll.
Leider kann Excel das Makro so nicht ausführen, da unterschiede in der Programmiersprache bestehen (habe z.B statt thisComponent Workbook.Worksheets gefunden)
Könnt ihr mir Helfen den Befehl umzuschreiben?
Sub kopieren()
doc = thisComponent
Sheets = doc.Sheets
apath = Split(doc.Location, "/")
apath(UBound(apath)) = "Mappe1.ods"
quellpath = Join(apath, "/")
Formula = "='" & quellpaht & "'#"
For Each sheetname In Sheets.ElementNames
target = Sheets.getByName(sheetname).getCellRangeByName("A1:B4")
target.ArrayFormula = Formula & sheetname & ".B8:C11"
Next
End Sub