Hallo,

ich habe ein Tabellenblatt mit Namen verteilt auf unterschiedliche Zellen. Diese Namen möchte ich gerne auf Vollständigkeit mit Hilfe eines anderen Tabellenblattes in dem alle verfügbaren Namen gelistet sind vergleichen. Sprich Tabellenblatt 1 soll mit Tabellenblatt 2 verglichen werden.

Hier mein bisheriger Code:

Sub NamenVollstaendig()
   
    i = 1
    anzahl = Worksheets("Namen").UsedRange.SpecialCells(xlCellTypeLastCell).Row

    Do Until IsEmpty(Worksheets("Namen").Cells(i, 1))

    mitarbeiter = Worksheets("Plan").Cells.Find(What:="*i*")
   
    If mitarbeiter = anzahl Then
   
    MsgBox "Alles okay"
   
    Else
   
    MsgBox "Name fehlt"
   
    End If

    i = i + 1
   
    Loop
   
End Sub

Leider funktioniert der Code noch nicht so richtig. Wäre über Hilfe sehr dankbar :)

Gruß

Lisa