In der Tabelle1 habe ich inder Spalte N in den Zellen N10 bis N205 Werte, diese sollen nun
uebertragen werden in die Tabelle 2 in die Zeile 10 in die Zellen B10 bis ?10.
Wer kann mir helfen?
Dnake
Alex
Sub Test()
With Worksheets("Tabelle1")
.Cells(10, 14).Select
.Range(Selection, Selection.End(xlDown)).Select
End With
Selection.Copy
Sheets("Tabelle2").Select
Cells(10, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
es geht aber sicherlich noch eleganter