aus drei Arbeitsmappen transpornieren
09.07.2016 18:28:16
Andi
ich habe wieder einmal ein Problem.
Ich möchte aus drei Arbeitsmappen Werte aus der jeweiligen letzten Tabelle mit verschiedenen Bereichen in eine Arbeitsmappe Importieren, und Transponieren.
Habe hier ein Beispiel aus einer Arbeitsmappe, geht aber nicht.
Sub Einlesen()
Dim arWerte As Variant
Dim arWerte1 As Variant
Dim wks As Workbook
arWerte = ActiveSheet.Range("AU2:AU6").Value
arWerte1 = ActiveSheet.Range("AR2:AR6").Value
Workbooks("Arbeitsmappe.xlsx").Worksheets("letze Tabelle").Range("B5:E5") = _
WorksheetFunction.Transpose(arWerte)
Workbooks("Arbeitsmappe.xlsx").Worksheets("letzte Tabelle").Range("B1:E1") = _
WorksheetFunction.Transpose(arWerte1)
End Sub
Gruß Andi