Controles op meerdere lijsten

Sub controle_op_Basis()

For Each c In Worksheets("Basis").Range("A1:A10")
 If c.Value = Dienstnr_TB.Value Then
 MsgBox "Staat al in Basis"
 Else
 controle_op_medewerker
 End If
Next c

End Sub
Sub controle_op_medewerker()
For Each c In Worksheets("Medewerkers").Range("A1:A10")
 If c.Value = Dienstnr_TB.Value Then
 MsgBox "Staat al in Medewerkerlijst"
 Else
 controle_op_database
 End If
Next c

End Sub
Sub controle_op_database()
For Each c In Worksheets("Database").Range("A1:A10")
 If c.Value = Dienstnr_TB.Value Then
 MsgBox "staat in database"
 Else
 MsgBox "Onbekend Dienstnr"
 End If
Next c

End Sub

Private Sub CommandButton1_Click()
controle_op_Basis
End Sub

Sub testen()
   Set dict = CreateObject("scripting.dictionary")
   dict.comparemode = vbTextCompare
   shnames = Array("Basis", "Database", "medewerkers")               'alle gewenste tabbladen
   For ish = 0 To UBound(shnames)                                    'die 1 na 1 aflopen
      a = Sheets(shnames(ish)).Range("A1").CurrentRegion             'data inlezen
      For r = 1 To UBound(a)                                         '1 na 1 aflopen
         s = a(r, 1) & "|" & a(r, 2)                                 'nr en naam
         If Not dict.exists(s) Then dict.Add s, Array(s, 0, 0, 0)    'toevoegen aan dictionary als die nog niet bestaat
         d = dict(s)                                                 'terug uit dictionary halen
         d(ish + 1) = 1                                              'in gepaste element vlaggetje opzetten
         dict(s) = d                                                 'terugschrijven naar dictionary
      Next
   Next

   With Sheets("basis")
      .Range("Aa1").Resize(100, 26).ClearContents

      .Range("AA1").Resize(dict.Count, 4).Value = Application.Index(dict.items, 0, 0)   'eventjes wegschrijven
      b = Application.Index(dict.items, 0, 0)                        'ook naar array wegschrijven
      dict.RemoveAll                                                 'dictionary leegmaken

      For r = 1 To UBound(b)                                         'alle verzamelde namen aflopen
         s = Join(Application.Index(b, r, Array(2, 3, 4)), "|")      'combinatie van de vlaggetjes
         If Not dict.exists(s) Then dict.Add s, b(r, 1) Else dict(s) = dict(s) & ", " & b(r, 1)   'naargelang vlaggetje wel of nog niet bestaat, een nieuwe creëren en daarna toevoegen nr+naam aan item
      Next

      .Range("AG1").Resize(dict.Count, 2).Value = Application.Transpose(Array(dict.keys, dict.items))   'wegschjrijven van de verzamelde gegevens
      b = Application.Transpose(Array(dict.keys, dict.items))        'wegschjrijven van de verzamelde gegevens
      For r = 1 To UBound(b)
         MsgBox b(r, 1) & vbLf & b(r, 2)
      Next

   End With
End Sub