Clever-Excel-Forum

Normale Version: Identifikationsnummer in Datei 1 auslesen und Daten in Datei 2 einfügen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3 4 5
Hallo,

Wollte mal fragen ob ein Macro mir dies hier ermöglichen kann

Hab eine Excel Datei mit einer Datenbank wo Identifikationensnummern von Personen drin stehn (jede einzelne ID gibt es nur einmal) doch die ID kann in Spalte B oder G stehn mit dem Vornamen, Nachnamen und Adresse der Personen.

Wenn ich nun in der zweiten Datei die ID Nummer eingebe sollte das Makro die in Datei 1 suchen gehn und mir die Felder mit den Daten aus Datei 1 ausfüllen d.h. Vorname Nachname und Adresse...

Wer kann mir da ein Makro machen?

Mfg

Vielen Dank
Hallo,

benenne die Datei mit dem Sheet "Identifikation" um in "Patrick 2_1" und die Datei für die neue Liste in "Patrick 2_2". Dann teste diesen Code:

Code:
Sub T_1()
Dim WS As Worksheet: Set WS = Workbooks("Patrick 2_2.xlsx").Sheets(1)
    Do
        i = i + 1
    Loop Until WS.Cells(i, 2) = ""
    Z = i
With Workbooks("Patrick 2_1.xlsx").Sheets(1)
    i = 1
    Do
        i = i + 1
    Loop Until .Cells(i, 1) = ""
    lr = i
    For i = 3 To lr
    ID = IIf(IsEmpty(.Cells(i, 2)), .Cells(i, 7), .Cells(i, 2))
        If ID <> "" Then WS.Cells(Z, 2).End(xlUp).Offset(1) = ID: Z = Z + 1
    Next i
End With
End Sub

Danach sollte in Spalte 2 der Zieltabelle alle Identifikationscode stehen. Das Füllen der anderen Spalten sollte mit "=SVerweis()" gehen.

mfg
Sorry aber ich bekomme sofort eine Fehlermeldung muss ja die Datei mit dem Makro in *.xlsm umwandeln und im Makro den richtigen Pfad der Datei eintragen
Jetzt funktionniert es d.h. die andere Datei muss offen sein so dass das Ganze funktionniert mit dem "=SVerweis()" hab ich noch nie gearbeitet geht das nicht zusammen mit dem Makro?
Leider muss ich sagen dass ich das Ganze ein bisschen anders dachte und zwuar so dass wenn ich in der zweiten Datei verschiedene ID Nummern eingebe und ich dann die zusätzlichen Daten hinter die jeweiligen ID Nummern haben will dass er sie erst dann per Makro suchen geht! Nicht wie jetzt dass sämtliche ID Nummern aus der Datenbank übertragen werden nur die die ich in Sapalte B eingegeben hab und er dann in die einzelnen Daten der Personen in der Datenbank suchen geht
Hallo,

in der Zieltabelle fehlt der Wohnort: soll der in Spalte E oder J?

Da die Spalten in beiden Listen völlig unterschiedlich sind, muss eine Zuordnung programmiert werden, kein Problem aber die Abstimmung ist recht müsam.

mfg
Hallo,

mit "=SVerweis()" geht es nicht, da die ID's in 2 Spalten stehen können.

In den Dateien ist ein erster Versuch, wie gesagt, der Ort fehlt noch.

mfg
Hallo,

da gab es wohl vorhin ein Missverständnis mit der Reihenfolge:

- Eingabe von ID's in der Ziel-Mappe
- Suchen der Daten aus der Quelle (Datenbank)

Wie groß ist die Datenbank? Oder ist das Tempo in der Orignialdatei ok?

mfg
Die Zieldatei sollte nur mit ID's, nicht mit Daten gefüllt sein.
Hier die Datei
Seiten: 1 2 3 4 5