ich habe hier bei euch folgenden wunderbaren Code gefunden. Funktioniert auch prächtig.
ABER zum Teufel noch mal ich bekomme es nicht hin, dass nur Werte eingefügt werden und keine 1:1 Kopie.
Was muss ich ergänzen damit es funktioniert? Mit .PasteSpecial PasteValues habe ich es nicht hinbekommen :-( sondern nur verschiedenste Fehlermeldungen erzeugt :o)
Sub Uebertragen()
Dim iRow As Integer
With Worksheets("B")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveCell.EntireRow.Copy Worksheets("B").Rows(iRow)
ActiveCell.EntireRow.Delete
.Columns.AutoFit
End With
End Sub