Kopieren Sie nur Daten, nicht die Formeln dahinter von einem Blatt zum anderen

-1

Ich möchte nur Daten und nicht die Formeln dahinter aus dem Blatt "Data" in das Blatt "Report" kopieren.Kopieren Sie nur Daten, nicht die Formeln dahinter von einem Blatt zum anderen

Sub CopyValueDown() 

Dim lRow As Integer 
    lRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row 
    If lRow > 1 Then 
     Sheets("Report").Range("A1:H1").AutoFill _ 
        Destination:=Range("A1:H" & lRow) 
    end if 
End Sub

Es besagt, dass die AutoFill-Methode nicht funktioniert.

Vielen Dank im Voraus!

Quelle

2017-12-18 DaZn

Zitieren Sie die genaue Fehlermeldung. –

Wo kopieren Sie von 'Data' nach' Report'? Dieser Code findet die letzte Zeile in Spalte A auf dem 'Data'-Blatt und wenn es mehr als eins ist, füllt es das' Report'-Blatt von 'A1: H1' bis zur letzten Zeile, die auf dem 'Data'-Blatt gefunden wird. Es wird nichts aus dem 'Daten'-Blatt kopiert - wenn A1: H1 leer ist, wird es nur leere Zellen füllen. ** ZB ** Platziere ein _1_ in 'Data! A11' und ein _3_ in' Report! H1' und 'H1: H11' füllt sich mit _3, 4, 5 .... 13_ –

Danke! Ich hab es geschafft :-) – DaZn

Sie brauchen nicht .AutoFill, aber .FillDown. Versuchen Sie es so:

Public Sub TestMe() 
    If lrow > 1 Then 
     Range("A1:H" & lrow).FillDown 
    End If 
End Sub

Quelle

2017-12-18 10:08:18 Vityata

Kopieren Sie nur Daten, nicht die Formeln dahinter von einem Blatt zum anderen

Antwort

Verwandte Themen