Daten zwischen zwei Dateien abgleichen
08.11.2004 09:28:17
Beni
ich möchte Daten zwischen zwei Arbeitsmappen abgleichen,
bei mir Zuhause mit Excel2003 funktioniert es, im Geschäft mit ExcelXP,
kommt die Meldung "Index ausserhalb des gültigen Bereichs", an was kann das liegen.
Für eine brauchbare Lösung wäre ich sehr Dankbar.
Gruss Beni
Sub Daten_zwischen_zwei_Dateien_abgleichen()
Dim iZeile, lz, z As Integer
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Workbooks("Mappe1").Worksheets("Tabelle1")
Set WS2 = Workbooks("Mappe2").Worksheets("Tabelle1")
For iZeile = WS1.Range("A65536").End(xlUp).Row To 1 Step -1
Wert = WS1.Cells(iZeile, 1)
Set c = WS2.Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
WS1.Rows(iZeile).Delete Shift:=xlUp
End If
Next iZeile
For iZeile = 1 To WS2.Range("A65536").End(xlUp).Row
Wert = WS2.Cells(iZeile, 1)
Set c = WS1.Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
lz = WS1.Range("A65536").End(xlUp).Row + 1
WS1.Cells(lz, 1) = WS2.Cells(iZeile, 1)
WS1.Cells(lz, 2) = WS2.Cells(iZeile, 2)
End If
Next iZeile
End Sub
Anzeige