Wertezuordnung

Question

Hallo,

bitte um Hilfe bei einer mit Sicherheit für euch leichten Sache.

Ich habe einen endlose Menge von Kreditorennummern in Spalte A, in Spalte B habe ich die dazugehörigen Stückzahlen.

Beispiel:
A1 = 25695236 B1 = 300
A2 = 36589635 B2 = 150
usw. etwa 5.000 Zeilen

In Spalte D steht weitere Kreditorennummern die tw. identisch mit den Nummern in Spalte A sind jedoch in völlig anderen Zeilen stehen. Dahinter stehen in Spalte E die dazugehörigen Werte.

Beispiel:
A1 = 25695236 B1 = 300
A2 = 36589635 B2 = 150
D345 = 25695236 E345 = 45€
D999 = 36589635 E999 = 90€
usw. etwa 5.000 Zeilen

Ich möchte, dass bei identischen Kreditorennummern wie im Beispiel ablesbar der Wert in € direkt hinter der Kreditorennummer der Spalte A in die Spalte C übetragen wird.

Beispiel:
A1 = 25695236 B1 = 300 C1 = 45€ (aus E345)
A2 = 36589635 B2 = 150 C2 = 90€ (aus E999)
D345 = 25695236 E345 = 45€
D999 = 36589635 E999 = 90€
usw. etwa 5.000 Zeilen

Ich hoffe, dass es nicht zu unverständlich formuliert ist.

Vielen Dank im Voraus

Achim

Answer 1

hi achim ^^

vielleicht so :-)

gruss nighty

Option Explicit
Sub trennen()
Dim TbSpAZeile As Long, TbSpDZeile As Long
Dim zaehler As Long, zaehler1 As Long
TbSpAZeile = Cells(Rows.Count, 1).End(xlUp).Row
TbSpDZeile = Cells(Rows.Count, 4).End(xlUp).Row
ReDim TbSpaA(TbSpAZeile, 1) As Variant
ReDim TbSpaC(TbSpAZeile, 1) As Variant
ReDim TbSpaDE(TbSpAZeile, 2) As Variant
TbSpaA() = Range(Cells(2, 1), Cells(TbSpAZeile, 1))
TbSpaC() = Range(Cells(2, 3), Cells(TbSpAZeile, 3))
TbSpaDE() = Range(Cells(2, 4), Cells(TbSpAZeile, 5))
For zaehler = 1 To TbSpAZeile - 1
For zaehler1 = 1 To TbSpDZeile - 1
If TbSpaA(zaehler, 1) = TbSpaDE(zaehler1, 1) Then
TbSpaC(zaehler, 1) = TbSpaDE(zaehler1, 2)
Exit For
End If
Next zaehler1
Next zaehler
Range(Cells(2, 3), Cells(TbSpAZeile, 3)) = TbSpaC()
End Sub

Answer 2

Danke Nighty aber deine Lösung ist eher für die Profis :-)

Ich habe wohl vergessen zu erwähnen, dass ich ein absoluter Anfänger bin. Vielleicht gibt es für meine Wissensstufe auch eine Lösung.

Vielen Dank und Gruß

Achim

Answer 3

Hallo Achim,

schreibe in C1 folgende Formel und ziehe sie nach unten.

=WENN(ZÄHLENWENN(D:D;A1);SUMMENPRODUKT(($D$1:$D$5000=A1)*$E$1:$E$5000);"")

Falls die Kreditoren-Nr. aus Spalte D mehrfach mit der aus Spalte A übereinstimmt, werden die dazu gehörigen Werte aus Spalte E in Spalte C als Summe ausgegeben.

Gruß
Rainer