|
Hallo alle miteinander,
ich versuche Daten aus einem anderen Tabellenblatt zu kopieren und in einen bestimmten Bereich eines anderen Tabellenblattes einzufügen.
Hierzu mein Quelltext, den ich mir aus diversen Internetrecherchen kopiert habe. Leider funktioniert das ganze nicht ganz richtig.
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Makro2()
'
' Makro2 Makro
'
'Datei öffnen
Workbooks.Open Filename:="C:\Users\v104785\Desktop\Mappe1.xls"
'Prüfen, ob bereits vorhanden
If WorksheetFunction.CountIf(Workbooks("C:\Users\Person\Probe.xls").Sheets("Tabelle1").Range("H:H"), Range("H4").Value) = 0 Then
'Kopieren
Range("A4:N4").Copy
'Werte in Gesamtdatei einfügen
Workbooks("C:\Users\Person\Desktop\Probe.xls").Sheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End If
'Fenster schließen
Workbooks("C:\Users\v104785\Desktop\Mappe1.xls").Close
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Wäre schön, wenn mir jemand helfen könnte.
|