Datum von Datei/Spalte in andere Datei kopieren

Motor++Haie

Grünschnabel
Hallo zusammen, ich möchte mit gewisser Auswahl in Spalten zweier Dateien ein Datum von in Tabelle und Spalte kopieren bzw. überschreiben.
Mein Code sieht folgend aus aber er bewirkt nicht, was ich möchte. Hat jemand eine Lösung für mich. Es wird kein Fehler angezeigt. Danke bis dahin

Code:
Sub Datei_Kopieren3()

Dim wbStart As Workbook, wbZiel As Workbook
Dim rng As Range

Dim s As Single: s = Timer

On Error GoTo Fehler

Set wbStart = ActiveWorkbook

Set wbZiel = Workbooks.Open("C:Users\Besitzer\Desktop\Tabelle z Kopieren.xlsx")
' For Each rng In wbStart.Sheets("Tabelle1").Range("A2:A" & Range("A65536").End(xlUp).Row)

   If wbStart.Sheets("Tabelle1").Cells(rng.Row, 1) = wbZiel.Sheets("Tabelle1").Cells(rng.Row, 2) And _
         wbStart.Sheets("Tabelle1").Cells(rng.Row, 4) = wbZiel.Sheets("Tabelle1").Cells(rng.Row, 14) Then
      
      wbStart.Sheets("Tabelle1").Cells(rng.Row, 6).Copy Destination:=wbZiel.Sheets("Tabelle1").Cells(rng.Row, 13)
  
   End If
 
' Next rng

'Naja....
Fehler:
    MsgBox Timer - s & "   Sekunden " & vbLf & "  " & vbLf & "   Laufzeit der Datenübertragung    " & vbLf & "   " & vbLf & "   Tabelle aktualisieren   "
End Sub
 
Zurück