VBA - Zeilen mit bestimmtem Wert aus einer Datei in eine andere kopieren

[sheady]

Hallo zusammen,

ich hoffe Euch geht es allen gut ;) Ich habe ein Problem, bei dem mir hoffentlich jmd weiterhelfen kann.
Ich habe eine (geschlossene) Datei1 mit Daten von verschiedenen Personen, die alle mehrfach auftauchen können. Nun habe ich eine andere Datei2 geöffnet und möchte gerne per Makro ebenfalls die Datei1 öffnen, mir die Daten zu einer Person raussuchen und gebündelt in Datei2 einfügen. Ich habe bereits ein Makro gefunden, dass sehr gut innerhalb einer Datei zwischen 2 Arbeitsblättern funktioniert, weiß aber als Laie nicht, wie ich es für meinen Bedarf umschreiben kann. Hat jemand einen simplen Vorschlag?

Vielen Dank schonmal, dass Ihr Euch die Zeit für sowas nehmt!

Sub test()
Dim Anzahl As Long, A As Long
Dim SZelle As Range
Dim Suchwert As String

Suchwert = "Haus" 'Suchbegriff

Anzahl = Application.WorksheetFunction.CountIf(Tabelle1.Range("A:A"), Suchwert)

For A = 1 To Anzahl
If A = 1 Then
 Set SZelle = Tabelle1.Range("A:A").Find(Suchwert)
 Rows(SZelle.Row).Copy Tabelle2.Cells(A, 1) 'ganze Zeile Kopieren
Else
 Set SZelle = Tabelle1.Range("A:A").FindNext(SZelle)
 Rows(SZelle.Row).Copy Tabelle2.Cells(A, 1) 'ganze Zeile Kopieren
End If
Next A

End Sub

[Rabe]

Hi,

damit (Datei 2, "DieseArbeitsmappe") kannst Du im Hintergrund die Datei 1 öffnen:

Private Sub Workbook_Open()
   Dim Pfad As String
   
   Application.ScreenUpdating = False
   Pfad = ActiveWorkbook.Path
   Workbooks.Open Pfad & "\Datei 1.xlsb"
   Application.ScreenUpdating = True
   
End Sub

und dann ganz normal darauf zugreifen und nach dem kopieren schließt Du die zweite wieder.