(Tipp 219)


Zuerst drehen wir in der aktiven Mappe auf dem Blatt Tabelle1 den Text:
Worksheets("Tabelle1").Rows("1:1").Orientation = 90
Dann drehen wir in der xyz.xls, die natürlich offen sein muss, den Text:
Workbooks("xyz.xls").Worksheets("Tabelle1").Rows("1:1").Orientation = 90
Und jetzt weisen wir an, dass A1 von der Tabelle1 der aktiven Mappe in die xyz.xls in die Tabelle2 in A1 kopiert werden soll (in einer Zeile):
Sheets("Tabelle1").Range("A1").Copy _ Workbooks("xyz.xls").Worksheets("Tabelle2").Range("A1")
Das geht alles ohne Select und Activate.