Microsoft Excel

Herbers Excel/VBA-Archiv

Transponieren von 2 Dateien | Herbers Excel-Forum


Betrifft: Transponieren von 2 Dateien von: Heinz H
Geschrieben am: 22.02.2012 18:02:30

Hallo Leute

Ich habe ein Problem: Ich möchte von der Datei Schichtplan zum kopieren, in die Datei 2013.Test
Werte Transponieren.

Es funkt.leider nicht wie gewollt.
Könnte mir bitte jemand Helfen ?

Gruß
Heinz

  • Sub Transponieren()
    '
        Windows("Schichtplan zum kopieren.xls").Activate
        Sheets("Schichtplan Sortierer").Range("C6:K36").Copy
        
        Windows("2013.Test.xls").Activate
        Sheets("Jänner").Range("C500").PasteSpecial Paste:=xlPasteValues, Transpose:=True
       
       
       
        Windows("Schichtplan zum kopieren.xls").Activate
        Sheets("Schichtplan Schrumpfer").Range("C6:G36").Copy
       
        Windows("2013.Test.xls").Activate
        Sheets("Jänner").Range("C509").PasteSpecial Paste:=xlPasteValues, Transpose:=True
       
    End Sub


  •   

    Betrifft: AW: Transponieren von 2 Dateien von: Hajo_Zi
    Geschrieben am: 22.02.2012 18:04:07

    Hallo Heinz,

    versuche es ohne select usw.

    Sheets("Schichtplan Sortierer").Range("C6:K36").Copy
    Sheets("Jänner").Range("C500").PasteSpecial Paste:=xlPasteValues, Transpose:=True

    Gruß Hajo


      

    Betrifft: AW: Transponieren von 2 Dateien von: Heinz H
    Geschrieben am: 22.02.2012 18:09:02

    Hallo Hajo

    Es funkt. Super

    Recht herzlichen Dank
    Gruß
    Heinz


    Beiträge aus den Excel-Beispielen zum Thema "Transponieren von 2 Dateien"