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"