Microsoft Excel

Herbers Excel/VBA-Archiv

individuell Transponieren mit vba

Betrifft: individuell Transponieren mit vba von: Claudi
Geschrieben am: 01.09.2004 14:57:19

Hallo,

ich musste eine Spalte transponieren von Tabelle1 in Tabelle2, aber so das sie in Tabelle2 in die nächste freie Zeile eingefügt wird, denn das ganze muss variabel sein. Mit der Excel-Funktion funktioniert das nicht so recht.

Danke schon mal!

Gruß Claudi

  


Betrifft: AW: individuell Transponieren mit vba von: Werner Oertli
Geschrieben am: 01.09.2004 15:12:26

Grüezi Claudi

Sub A1_A9_Transponieren()
    x = Sheets("Tabelle2").Range("A33").End(xlUp).Row + 1
    Sheets("Tabelle1").Range("A2:A9").Copy
    Sheets("Tabelle2").Select
    Cells(x, 1).Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
    Application.CutCopyMode = False
End Sub


Gruss Werner