|
Hallo zusammen,
ich habe 2 anonymisierte Umfragen durchgeführt und will diese nun so zusammenführen, dass die Informationen der gleichen Person aus Umfrage 1 in dem Sheet der Umfrage 2 wieder hinter dieser Person stehen.
In Spalte 3 habe ich jeweils eine anonymisierte Nummer, sodass ich weiß welches die gleiche Person ist.
Immer wenn in einer Zeile aus Umfrage 2 die gleiche Nummer steht wie in Umfrage 1, soll der Inhalt der Spalten i+41 aus Umfrage 1 in Spalte i in Umfrage 2 eingefüht werden.
If Cells(j, 3) = Worksheets("Umfrage1").Cells(j, 3) Then
Cells(j, i) = Worksheets("Umfrage1").Cells(j, i + 41)
End If
Mit diesem Code wäre dies nur möglich, wenn besipielsweise in Zeile 10 (Umfrage 1) die gleiche Nummer steht wie in Zeile 10 (Umfrage 2). Dies ist aber nicht der Fall. Die Nummer aus Zeile 10 (Umfrage 1) steht möglicherweise in Zeile 20 (Umfrage 2).
Wie kann ich also programmieren, dass VBA alle Zeilen j miteinander vergleicht und diese kombiniert die einen gleichen Inhalt haben?
Danke für eure Hilfe.
Viele Grüße
Jan
|