+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Zellinhalte importieren (/thread-25830.html)
Zellinhalte importieren - Bobbi - 20.01.2022
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 SubEs 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!