Ist ja klar, dass wenn Du die Variablen As String deklarierst, auch Texte übergeben werden! ;)
Mein Zweizeiler müsste das Gleiche Machen wie Dein langer Code.
Beachte, dass ein "Rumhüpfen" durch Zellen kein sauberer Programmierstil ist.
Sub RPP()
With Worksheets("Tabelle")
.Range("O5:O10").Copy .Cells(.Rows.Count, "B").End(xlUp).Offset(1, 0)
.Range("O5:O10").Copy: .Range("N5").PasteSpecial xlPasteValues
End With
End Sub
Gruß Ralf
|