kopieren und Transformieren
19.10.2013 12:46:28
Andy
ich möchte gerne aus einer geschlossenen Arbeitsmappe z.B. Quelle.xlsx (die soll nicht geöffnet werden), Daten in meine aktuelle Arbeitsmappe einfügen und Transponieren.
Da schon Datensätze in der aktuellen Tabelle sind, sollen diese in die nächste leere Zeile eingefügt werden.
Diesen Code habe ich aufgezeichnet, denn kann mann sich noch verbessern.
Vielen Dank im voraus!
Sub KopierenUndTranformieren()
' KopierenUndTranformieren Makro
ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
Sheets("Tabelle3").Select
ChDir "C:\Users\master\Desktop"
Workbooks.Open Filename:="C:\Users\master\Desktop\Quelle.xlsx"
Range("A1:L18").Select
Selection.Copy
Windows("Mappe1").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub