Zellinhalte importieren

[Bobbi]

Hallo zusammen,


Ich steh völlig auf dem Schlauch und bräuchte Hilfe.

Ich habe ein Zieldokument mit Einträgen in Spalten A, B und C. Dieses möchte ich um Daten aus anderen Dokumenten ergänzen. Spalten B+C sind schon korrekt und können ignoriert werden.

Problem ist: In Spalte A sind in jeder Zelle eine spezifische Kenn-Nummer im Stil von: 1234-X. Manchmal stehen sie einzeln, manchmal zusammen. Also z.B. A2= 1234-1, 1234-2, 1234-3.

Die Zahlen sind per Komma+ Leerzeichen getrennt.

Was ich machen will: Wenn (mindestens) eine der Zahlen in einer A-Zelle meines Zieldokuments identisch mit (mindestens) einer Zahl aus einer Zelle der Spalte A in einem der Quelldokumente ist. Dann möchte ich aus dem Quelldokument in der betreffenden Zeile Spalten D-O importieren.

Beispiel 1: A1 im Zieldokument = 1234-1. A34 im Quelldokument ist ebenfalls 1234-1. Dann möchte ich aus dem Quelldokument D34, E34, ... bis O34 nach D1, E1, ... bis O1 kopieren.

Beispiel 2: A2 im Zieldokument = 1234-2, 1234-3. A34 im Quelldokument enthält 1234-3, aber nicht 1234-2.  Auch in dem Fall möchte ich aus dem Quelldokument D34, E34, ... bis O34 nach D1, E1, ... bis O1 kopieren.

Wo stecke ich? Ich versuche, über Entwicklertools/Visual Basic mir das als Skript zu basteln und im Zieldokument auszuführen. Quelldokumente kriege ich über geöffnete Fenster.

Code:

Sub ImportData()
    Dim FileLocation As String
   
    FileLocation = Application.GetOpenFilename
    If FileLocation = "False" Then
        Beep
        Exit Sub
    End If
   
    Application.ScreenUpdating = False
    Set ImportWorkbook = Workbooks.Open(Filename:=FileLocation)
   
    #????ImportWorkbook.Worksheets(1).Range("D1:O1").Copy ThisWorkbook.Worksheets(1).Range("A1")
   
    ImportWorkbook.Close
    Application.ScreenUpdating = True
End Sub

Ich weiß, dass ich das mit einer if condition abfragen müsste, aber da die Zelle ja keinen Wert hat (die Zahl ist ja "Text"?") hab ich keine Ahnung, wie.
Es ist wahrscheinlich offensichtlich, dass ich auch den bisherigen Teil nur aus einer Internet Anleitung habe, ich bin leider kein Experte.  

Deswegen wäre ich um jede Hilfe sehr dankbar! Vielen Lieben Dank schonmal!