Sub step1()
'Kopieren
If Workbooks("Report critical materials mit Makro.xlsm").Sheets("Sort").Range("D5:D30000").Value > 0 Then
Workbooks("Report critical materials mit Makro.xlsm").Sheets("Sort").Range("A5:E30000").Copy
Workbooks("Revenue Block mit Makros.xlsm").Sheets("Most critical materials").Range("A5").PasteSpecial xlPasteValues
End If
End Sub
Bitte um Hilfe. Mein Ziel ist die gesamte Tabelle aus dem ersten Dokument in ein anderes zu kopieren aber nur den Bereich der Tabelle wo Spalte D>0 ist.
Fehlermeldung: Typen unverträglich
Danke für eure Hilfe
|