das untere Makro funktioniert nicht mehr wenn meine Werte
in das benutzerdefiniertes Format 0"/"00"/"0 umgewandelt
werden.
Was muß ich ändern, damit die Sache wieder funktioniert?
Peter
Sub VergleichenKopieren()
Dim rng As Range
Dim lEnd As Long
Dim lRow As Long
Dim wksK As Worksheet
Dim wksA As Worksheet
Set wksK = Worksheets("Kopie alt")
Set wksA = Worksheets("aktuell")
lEnd = wksK.Range("A65536").End(xlUp).Row
For lRow = 9 To lEnd
Set rng = wksA.Range("A:A").Find(what:=(wksK.Cells(lRow, 1)), _
LookIn:=xlValues, lookAt:=xlWhole)
If Not rng Is Nothing Then
wksK.Range(wksK.Cells(lRow, 5), wksK.Cells(lRow, 20)).Copy _
Destination:=wksA.Cells(rng.Row, 5)
End If
Next
End Sub
Danke im voraus
Peter