Makro steigt aus....
Günter
Ransi hat mir ein Makro geschrieben.
Funktionierte super. Habe die abzugleichenden Dateien
verändert (maßgebende Spalte N bliebt unverändert.
Nun steigt das Makro bei Zeile "myDic(arrNeu(L, 14)) = 0"
mit der Fehlermeldung "Laufzeitfehler 9. Index außerhalb des
gültigen Bereichs" aus. Verstehe einfach nicht warum.
Gruß
Günter
Dim arrAlt As Variant
Dim arrNeu As Variant
Dim Z As Long
Dim I As Integer
Dim myDic As Object
Dim t As Double
On Error Resume Next
arrAlt = Sheets("Alt").Range("A13").CurrentRegion
arrNeu = Sheets("Neu").Range("A13").CurrentRegion
ReDim Out(1 To UBound(arrAlt), 1 To UBound(arrAlt, 2))
Set myDic = CreateObject("Scripting.Dictionary")
For L = LBound(arrNeu) To UBound(arrNeu)
myDic(arrNeu(L, 14)) = 0
Next
For L = LBound(arrAlt) To UBound(arrAlt)
If Not myDic.exists(arrAlt(L, 14)) Then
Z = Z + 1
For I = 1 To UBound(arrAlt, 2)
Out(Z, I) = arrAlt(L, I)
Next
End If
Next
Sheets("Fehlende in Neu").Range("A1").Resize(Z, UBound(arrAlt, 2)) = Out
Sheets("Fehlende in Neu").Select
Range("A1").Select
MsgBox ("Fertig!!!")
End Sub