Hallo Ihr Lieben

Ich bin eine absolute Anfängerin bezüglich VBA. Ich hoffe ihr versteht meine Frage....

Für die Arbeit habe ich eine "Such-Datenbank" via VBA erstellt.

Im ersten Tabellenblatt kann man auf einen Button klicken und ein Pop-Up Fenster öffnet sich. In diesem Fenster kann man einen Suchbegriff eingeben und es werden mehrere Werte dazu angezeigt. Diese Werte sind im einem weiteren Tabellenblatt (mit dem Namen ZZFFF2) eingetragen. 

Dieses Tabellenblatt (ZZFFF2) ist aber mit einer anderen Excel-Datei verknüpft, damit man aktualisierungen in dieser anderen Excel-Liste machen kann und diese dann auch automatisch im Tabellenblatt (ZZFFF2) aktualisiert werden.

Zuerst habe ich ohne die Verknüpfung diese Datenbank erstellt und alles hat hervoragend funktioniert, weil die erste Zeile (Suchzeile) nicht verknüpft war. Wenn ich aber diese erste Zeile auch verknüpft haben möchte, kann ich nichts mehr in der Suchfunktion eintragen. 

Was muss ich für einen Code eingeben, dass auch in der ersten Zeile die Verknüpfung funktioniert?

Hoffe Irgendjemand versteht, was ich meine... Ich kann es leider nicht besser erklären, da ich selber nicht genau weiss, was ich da mache. ; ) 

Besten Dank

'''8_1_##########
If ComboBox1_Suche.Value <> "" Then
AAAZ = CDbl(ZZFFF2.Range("A2:A5002").Cells.Find(What:=ComboBox1_Suche.Value, lookat:=xlWhole).Row)
TextBox2_STK.Value = ZZFFF2.Cells(AAAZ, 2).Value
TextBox3_TelSTK.Value = ZZFFF2.Cells(AAAZ, 3).Value
TextBox4_STV.Value = ZZFFF2.Cells(AAAZ, 4).Value
TextBox5_TelSTV.Value = ZZFFF2.Cells(AAAZ, 5).Value
TextBox6_Division.Value = ZZFFF2.Cells(AAAZ, 6).Value
End If
'''8_1_##########
_____________

Private Sub UserForm_Initialize()
'''2_1_##########
On Error GoTo EERR
With UserForm1
.Height = 400
.Width = 600
End With
  
'''3_1_##########
ZZFFF2.Activate
With ZZFFF2
ComboBox1_Suche.RowSource = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Address(External:=True)
End With
'''3_1_##########