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
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