Erst mal vielen herzlichen Dank für Deine Antwort!!!!
derzeitge Ausgangslage:
Bitte kostenlos registrieren, damit du dieses Element siehst.
Makro:
Sub ident_prüfung()
Dim lz(5), kz(5) As Byte, fin1, fin2, i, j, x, check As Long
fin1 = Cells(Rows.Count, 1).End(xlUp).Row: fin2 =...