Zeile per VBA in Spalte kopieren

Bild

Betrifft: Zeile per VBA in Spalte kopieren von: Kirsten
Geschrieben am: 21.02.2005 12:52:45

Hallo,

aus Datei1 soll ein Spaltenbereich B2:B4 in Datei2 per VBA kopiert werden. In die Zieldatei soll der Zelleninhalt in die 1. freie Zeile als Zeile eingefügt werden (also z.B. A5:C5). Ich bekomme das Einfügen nur als Spalte hin.

Bitte um eure Hilfe.

Kirsten

Bild


Betrifft: AW: Zeile per VBA in Spalte kopieren von: UweD
Geschrieben am: 21.02.2005 13:03:38

HAllo



Sub Transpo()
    RR = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
    Range("B2:B4").Copy
    Range("A" & RR).PasteSpecial , Transpose:=True
    Application.CutCopyMode = False
End Sub


Gruß UweD


Bild


Betrifft: AW: Zeile per VBA in Spalte kopieren von: Heinz A. Wankmüller
Geschrieben am: 21.02.2005 13:08:55

Hallo Kirsten,

so z.B.:


Sub Kopieren()
    Dim efz&
    efz = Workbooks("Mappe2").Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
    Range("B2:B4").Copy
    Workbooks("Mappe2").Worksheets(1).Range("A" & efz).PasteSpecial Paste:=xlAll, Transpose:=True
    Application.CutCopyMode = False
End Sub


Gruß
Heinz


Bild


Betrifft: Danke, hat gut geklappt von: Kirsten
Geschrieben am: 21.02.2005 15:46:37

Hallo Uwe, hallo Heinz,

dank eurer Hilfe hat es wunderbar geklappt.

Kirsten


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeile per VBA in Spalte kopieren"