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:

' Take the data which will be transposed
    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
        
    ' Take the transposed data and move it to the Word Application
    ThisWorkbook.Worksheets("Transposed_Data").Columns("A:B").Copy
    
    ' Paste transposed data to the Word Application
    Set xDok = wd.Documents.Add
    xDok.Range.Paste

Vielen Dank für jegliche Unterstützung!