Liebe alle,
ich würde eure Hilfe benötigen und zwar würde ich gerne eine ganze Zeile (s. Code) kopieren und in ein anderes Workbook mit Werte / Transponieren an der Stelle B19 (Zelle) einfügen und es sind nicht nur Zahlen in der kopierten Zeile enthalten, sondern auch Bezeichnungen , die ich nich beim Werte einfügen (Transponieren) enhalten/eingefügt haben möchte.
Code:
wkbQuelle.Worksheets(ÜbersichtRst).Rows("4:4").Copy
Workbooks("Aufteilung.xlsb").Worksheets("Info").Activate
Workbooks("Aufteilung.xlsb").Worksheets("Info").Range("C19").Select
Workbooks("Aufteilung.xlsb").Worksheets("Info").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Hättet ihr eventuell eine Idee ?
KR
|