Datum in letzte Spalte und nicht in erste
12.08.2019 10:22:57
Tara
ich habe folgendes Anliegen, den Code den ich geschrieben habe, gibt das Datum in der ersten Spalte aus, aber ich bekomme es irgendwie nicht gebacken, dass dieser ganz am Ende eingefügt wird,
wie gehe ich da am besten for für meine Variable z
Sub SearchAndFind()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim C As Range
Dim Z As Range
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
For Each C In ws2.Range("CN2:CN100000").SpecialCells(xlCellTypeConstants)
Set Z = ws1.Columns(91).Find(C, lookat:=xlWhole, LookIn:=xlValues)
If Not Z Is Nothing Then
C.EntireRow.Copy Z.Offset(0, -2)
Z.Offset(0, -2) = Date
Else
Set Z = ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Offset(1, -1)
ws1.Range
C.EntireRow.Copy D
Z = Date
End If
Set Z = Nothing
Next C
End Sub