|
Hallo,
habe eine Tabelle, die folgendermaßen aussieht:
______________________________________________________
Name Nummer Datum Beschreibung
Test1 0987665 10.09.2013 Eine Beschreibung zu Nummer 1.
Test2 0854325 11.09.2013 Eine Beschreibung zu Nummer 2.
Test3 0675545 12.09.2013 Eine Beschreibung zu Nummer 3.
usw.
_______________________________________________________
Die Daten würde ich gerne transponiert in eine Word Applikation übernehmen:
_______________________________________________________
Name Test 1
Nummer 0987665
Datum 10.09.2013
Beschreibung Eine Beschreibung zu Nummer 1.
Name Test 2
Nummer 0854325
Datum 11.09.2013
Beschreibung Eine Beschreibung zu Nummer 2.
usw.
_______________________________________________________
Da die Anzahl der zu übernehmenden Daten variieren wird, würde ich es gerne erweiterbar machen, also wohl mit einer Schleife lösen.
Das Transponieren habe ich im Moment über ein zweites Excel-Sheet gelöst. Nur wie kann ich es am besten für alle Tests übernehmen?
Leider klappt im Moment nur das Transponieren des ersten Tests. In der Word Applikation sollen die verschiedenen Tests durch separate Tabellen voneinander getrennt sein.
Hier ein bisheriger Code-Ausschnitt:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | ThisWorkbook.Worksheets("Data").Range("A1:F2").Select
Selection.Copy
Sheets("Transposed_Data").Select
ActiveSheet.Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ThisWorkbook.Worksheets("Transposed_Data").Columns("A:B").Copy
Set xDok = wd.Documents.Add
xDok.Range.Paste
|
Vielen Dank für jegliche Unterstützung!
|