Sub Abgleich_2()
Dim n, nl, nm As Integer
Dim i, il, im As Integer
Dim z, za As Integer
Dim LetzteZeileVorgabe As Integer
Dim LetzteZeileSuche As Integer
Dim LetzteZeileAuswertung As Integer
Dim PostcodeV()
Dim PostcodeS()
Dim P, a, b As Integer
n = 8
i = 2
z = 2
P = 100
Y = 0
LetzteZeileVorgabe = ActiveSheet.Cells(65536, 1).End(xlUp).Row
nl = LetzteZeileVorgabe + 1
LetzteZeileSuche = Worksheets("Tabelle1").Cells(65536, 1).End(xlUp).Row
il = LetzteZeileSuche + 1
LetzteZeileAuswertung = Worksheets("Auswertung").Cells(65536, 1).End(xlUp).Row
z = LetzteZeileAuswertung + 1
za = LetzteZeileAuswertung
nm = nl - 8
im = il - 2
ReDim PostcodeV(nm, 3)
ReDim PostcodeS(im, 3)
For n = 8 To nl
PostcodeV(Y, 0) = Array(ActiveSheet.Cells(n, 2).Value)
PostcodeV(Y, 1) = Array(ActiveSheet.Cells(n, 3).Value)
PostcodeV(Y, 2) = Array(ActiveSheet.Cells(n, 4).Value)
PostcodeV(Y, 3) = Array(ActiveSheet.Cells(n, 5).Value)
Y = Y + 1
Next
Y = 0
For i = 2 To il
PostcodeS(Y, 0) = Array(Worksheets("Tabelle1").Cells(i, 6).Value)
PostcodeS(Y, 1) = Array(Worksheets("Tabelle1").Cells(i, 7).Value)
PostcodeS(Y, 2) = Array(Worksheets("Tabelle1").Cells(i, 8).Value)
PostcodeS(Y, 3) = Array(Worksheets("Tabelle1").Cells(i, 9).Value)
Y = Y + 1
Next
MsgBox UBound(PostcodeV)
MsgBox UBound(PostcodeS)
For n = 0 To UBound(PostcodeV)
For i = 0 To UBound(PostcodeS)
Next
Next
If P = n Then
Application.Wait Now + TimeSerial(0, 0, 5)
P = P + 100
End If
MsgBox nm
End Sub