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
|