Sub Uebereinstimmung()
Dim ws1, ws2 As Worksheet
Set ws1 = Sheets("Einteiler")
Set ws2 = Sheets("Dienste")
Dim z, r As Integer
For z = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
For r = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
If ws1.Cells(z, 5) = ws2.Cells(r, 10) _
And ws1.Cells(z, 10) = ws2.Cells(r, 6) _
And ws1.Cells(z, 23) = ws2.Cells(r, 7) _
And ws1.Cells(z, 12) = "" Then
If Not WorksheetFunction.CountIf(Range(ws1.Cells(2, 12), ws1.Cells(36, 12)), ws1.Cells(z - 1, 12)) = 2 Then
ws1.Cells(z, 12) = ws2.Cells(r, 1)
Exit For
End If
End If
Next r
Next z
End Sub
Sub Uebereinstimmung()
Dim ws1, ws2 As Worksheet
Set ws1 = Sheets("Einteiler")
Set ws2 = Sheets("Dienste")
Dim z, r As Integer
For z = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
If IsNumeric(ws1.Cells(z, 23)) Then
ws1.Cells(z, 23) = CInt(ws1.Cells(z, 23))
End If
Next z
For z = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
a = ws1.Cells(z, 5)
b = ws1.Cells(z, 10)
c = ws1.Cells(z, 23)
d = ws1.Cells(z, 12)
For r = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
If ws1.Cells(z, 5) = ws2.Cells(r, 10) _
And ws1.Cells(z, 10) = ws2.Cells(r, 6) _
And ws1.Cells(z, 23) = ws2.Cells(r, 7) _
And ws1.Cells(z, 12) = "" Then
If Not WorksheetFunction.CountIf(Range(ws1.Cells(2, 12), ws1.Cells(36, 12)), ws1.Cells(z - 1, 12)) = 2 Then
ws1.Cells(z, 12) = ws2.Cells(r, 1)
Exit For
End If
End If
Next r
Next z
End Sub
Sub Uebereinstimmung()
Dim ws1, ws2 As Worksheet
Set ws1 = Sheets("Einteiler")
Set ws2 = Sheets("Dienste")
Dim z, r As Integer
For z = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
If IsNumeric(ws1.Cells(z, 23)) Then
ws1.Cells(z, 23) = CInt(ws1.Cells(z, 23))
End If
Next z
For z = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
For r = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
If ws1.Cells(z, 5) = ws2.Cells(r, 10) _
And ws1.Cells(z, 10) = ws2.Cells(r, 6) _
And ws1.Cells(z, 23) = ws2.Cells(r, 7) _
And ws1.Cells(z, 12) = "" Then
If Not WorksheetFunction.CountIf(Range(ws1.Cells(2, 12), ws1.Cells(36, 12)), ws2.Cells(r, 1)) = 2 Then
ws1.Cells(z, 12) = ws2.Cells(r, 1)
Exit For
End If
End If
Next r
Next z
End Sub
Sub Uebereinstimmung()
Dim ws1, ws2 As Worksheet
Set ws1 = Sheets("Einteiler")
Set ws2 = Sheets("Dienste")
Dim z, r, lz As Integer
For z = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
If IsNumeric(ws1.Cells(z, 23)) Then
ws1.Cells(z, 23) = CInt(ws1.Cells(z, 23))
End If
Next z
lz = ws1.Cells(Rows.Count, 1).End(xlUp).Row
For z = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
For r = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
If ws1.Cells(z, 5) = ws2.Cells(r, 10) _
And ws1.Cells(z, 10) = ws2.Cells(r, 6) _
And ws1.Cells(z, 23) = ws2.Cells(r, 7) _
And ws1.Cells(z, 12) = "" Then
If Not WorksheetFunction.CountIf(Range(ws1.Cells(2, 12), ws1.Cells(lz, 12)), ws2.Cells(r, 1)) = 2 Then
ws1.Cells(z, 12) = ws2.Cells(r, 1)
Exit For
End If
End If
Next r
Next z
End Sub