wenn übereinstimmung dann übertragen
07.08.2003 14:14:08
richard
ich habe folgendes problem.
ich habe eine datenbasis. jeder datensatz wird mit einem 3 spaltigen schlüssel eindeutig identifiziert.
auf einem anderen blatt habe ich diese drei schlüsselspalten, allerdings sind alle merkmalskombinationen vertreten. bei der datenbasis sind lediglich manche kombinationen besetzt.
ich möchte nun meine datenbasis in das gerüst übertragen, weiß aber nicht genau, wie ich den abgleich über 3 spalten bekomme. mit sverweis und so kann man ja nur ein feld prüfen!?
beispiel
datenbasis
merkmal1 merkmal2 merkmal3 wert
1........1........1........x
1........1........2........y
2........1........1........z
2........3........1........a
gerüst
merkmal1 merkmal2 merkmal3 wert
1........1........1........x
1........1........2........y
1........2........1........0
1........2........2........0
1........3........1........0
1........3........2........0
2........1........1........z
2........1........2........0
2........2........1........0
2........2........2........0
2........3........1........a
2........3........2........0
ich hoffe das war verständlich
mfg richi
ps: das gerüst lasse ich wie folgt aufbauen
Sub Kombinationen()
Merkmal1 = Array(1, 2)
Merkmal2 = Array(1, 2, 3)
Merkmal3 = Array(1, 2)
i = 1
For Each c In Obergruppe
For Each d In Sparte
For Each e In Detail
i = i + 1
Worksheets(Jahr).Range("A" & i) = Jahr
Worksheets(Jahr).Range("B" & i) = c
Worksheets(Jahr).Range("C" & i) = d
Worksheets(Jahr).Range("D" & i) = e
Next e
Next d
Next c
End Sub
Anzeige