Office: (Office 2010) 2 Tabellen vergleichen mit 2 Bedingungen per VBA

Hallo Zusammen,

ich möchte 2 Tabellen mit 2 Bedingungen vergleichen.

Wenn in der "Tabelle1" "Spalte A" der Wert in der Tabelle 2 Spalte B gefunden wird, soll geschaut werden ob die Zeile in der Tabelle1 der Spalte D der Tabelle 2 Spalte E ungleich ist, wenn ungleich dann soll der Wert aus der Tabelle 2 Spalte E in die Tabelle1 Spalte D kopiert werden.

Ich hoffe ich konnte es rüber bringen.

Kann mir hier jemand helfen?

Viele Grüße.

 

Hallo Zusammen,

kann mir den keine Helfen?

Ich bitte um Hilfe! Danke

 

Hola,

nach knapp 1,5 Stunden schon nachzufragen finde ich persönlich schon dreist - immerhin ist das hier ein freiwilliges und kostenloses Forum.
Wie gesagt, nur meine Meinung.

Gruß,
steve1da

 

Sorry steve1da,

ich bin bisschen unter Stress, weil ich es morgen frühe abgeben muss?

VG, musa2828

 

Hola,

muss es VBA sein?

Gruß,
steve1da

 

Hallo steve1da,

muss nicht sein, aber ich wusste ehrlich nicht wie ich es automatisch die Werte per Formel übergeben soll?

VG, musa2828

 

Hola,

sorry, hatte überlesen das es direkt in D kopiert werden soll. Wenn es auch daneben angezeigt werden kann, ginge als Formel:

=WENN(SVERWEIS(A1;Tabelle2!B:E;4;0)=D1;"";SVERWEIS(A1;Tabelle2!B:E;4;0))

Ansonsten ginge wirklich nur VBA, das ist aber nicht mein Gebiet.

Gruß,
steve1da

 

Hallo steve1da,

trotzdem Danke für die schnelle Rückmeldung und Mühe.

Vielleicht gibt es ja jemand im Forum, der mir weiterhelfen kann?

VG, musa2828

 

Hallo,

Lösung habe ich bei ein andere Forum bekommen. Falls sich jemand interessiert

Private Sub CommandButton1_Click()
Dim LoL_1 As Long
Dim LoL_2 As Long
Dim r As Long
Dim z As Long
Dim erg

With Worksheets("Tabelle2")
LoL_1 = Cells(Rows.Count, "A").End(xlUp).Row
LoL_2 = .Cells(Rows.Count, "A").End(xlUp).Row
For r = 2 To LoL_1
erg = Application.Match(Range("A" & r), .Range("A2:A" & LoL_2), 0)
If IsNumeric(erg) Then
z = erg + 1
If Range("B" & r) <> .Range("D" & z) Then Range("B" & r) = .Range("D" & z)
End If
Next r
End With
End Sub

 

Hola,

danke für den Hinweis! ;)

Der Vollständigkeit halber:

http://ms-office-forum.net/forum/showthread.php?t=330736

Gruß,
steve1da

 

Danke Steve!

 

Hallo,

könnte man das Makro auch so abändern, dass es in Tabelle1 und Tabelle2 jeweils nach zwei identischen Parametern sucht und dann in Tabelle 3 den jeweiligen Wert der Paramenter ausgibt?

Danke für die Hilfe