Transpose Problem - mit VBA
11.10.2012 19:30:54
Matze,Matthias
füge Werte aus einem Spaltenbereich per Transpose in eine weitere Tabelle ein,
allerdings soll er die nächste frei Zeile nutzen.
Ich habe das Problem das er mir 9 Leerzeilen freiläst und dann einfügt. Was ,wo ist mein Fehler?
Sub Kopieren()
Dim Zeile As Integer
Worksheets("Eingabe").Range("D3:D12").Copy
With Worksheets("Datenbank")
.Activate
Zeile = .Columns(2).Cells.SpecialCells(xlCellTypeLastCell).Row
'ab hier fängt er 10 Zeilen tiefer an einzufügen?
.Cells(Zeile + 1, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End With
Selection.Cells(1).Offset(1, 1).Select
End Sub
Zusatzaufgabe hier:
In Spalte A der Zieltabelle eine fortlaufende Nr einbinden.
Gruß Matze