Hallo Zusammen,
ich hoffe Ihr könnt mir hier weiterhelfen. Und zwar kenne ich mit VBA einfach gar nicht aus und habe nur die Grundkenntnisse in Excel.
Jetzt zu meinem Problem:
Ich habe eine Tabelle(Bestellungen) und eine Tabelle (Wareneingang), leider sind diese beiden nicht verknüpft. Jetzt versuche ich, mit Hilfe eines VBA-Codes zu jeder
Bestellung den Wareneingang zu finden. Es besteht kein Primärschlüssel, somit würde ich nach 3 Feldern suchen die gleich sind (Firma, Bestellnummer und Produkt)
Ich hätte mir das ca. so vorgestellt:D Habt Ihr eine Idee?
=IF(Tabelle2!A2=Tabelle1!A2;=IF(Tabelle2!B2=Tabelle1!B2;=IF(Tabelle2!C2=Tabelle1!C2;than Tabelle2!(Range (A2:H2) Copy---Tabelle1!(Range(I2:P2) paste;
=IF(Tabelle2!A3=Tabelle1!A2;=IF(Tabelle2!B3=Tabelle1!B2;=IF(Tabelle2!C3=Tabelle1!C2;than Tabelle2!(Range (A3:H3) Copy---Tabelle1!(Range(I2:P2) paste;
=IF(Tabelle2!A4=Tabelle1!A2;=IF(Tabelle2!B4=Tabelle1!B2;=IF(Tabelle2!C4=Tabelle1!C2;than Tabelle2!(Range (A4:H4) Copy---Tabelle1!(Range(I2:P2) paste;
=IF(Tabelle2!A5=Tabelle1!A2;=IF(Tabelle2!B5=Tabelle1!B2;=IF(Tabelle2!C5=Tabelle1!C2;than Tabelle2!(Range (A5:H5) Copy---Tabelle1!(Range(I2:P2) paste;
=IF(Tabelle2!A6=Tabelle1!A2;=IF(Tabelle2!B6=Tabelle1!B2;=IF(Tabelle2!C6=Tabelle1!C2;than Tabelle2!(Range (A6:H6) Copy---Tabelle1!(Range(I2:P2) paste;
=IF(Tabelle2!A7=Tabelle1!A2;=IF(Tabelle2!B7=Tabelle1!B2;=IF(Tabelle2!C7=Tabelle1!C2;than Tabelle2!(Range (A7:H7) Copy---Tabelle1!(Range(I2:P2) paste;
=IF(Tabelle2!A8=Tabelle1!A2;=IF(Tabelle2!B8=Tabelle1!B2;=IF(Tabelle2!C8=Tabelle1!C2;than Tabelle2!(Range (A8:H8) Copy---Tabelle1!(Range(I2:P2) paste;
…….
=IF(Tabelle2!A___=Tabelle1!A2;=IF(Tabelle2!B___=Tabelle1!B2;=IF(Tabelle2!C___=Tabelle1!C2;than Tabelle2!(Range (A___:H___) Copy---Tabelle1!(Range(I2:P2) paste;
otherwise Tabelle1!I1”Fehler-nicht gfunden”
=IF(Tabelle2!A2=Tabelle1!A3;=IF(Tabelle2!B2=Tabelle1!B3;=IF(Tabelle2!C2=Tabelle1!C3;than Tabelle2!(Range (A2:H2) Copy---Tabelle1!(Range(I3:P3) paste;
=IF(Tabelle2!A3=Tabelle1!A3;=IF(Tabelle2!B3=Tabelle1!B3;=IF(Tabelle2!C3=Tabelle1!C3;than Tabelle2!(Range (A3:H3) Copy---Tabelle1!(Range(I3:P3) paste;
=IF(Tabelle2!A4=Tabelle1!A3;=IF(Tabelle2!B4=Tabelle1!B3;=IF(Tabelle2!C4=Tabelle1!C3;than Tabelle2!(Range (A4:H4) Copy---Tabelle1!(Range(I3:P3) paste;
=IF(Tabelle2!A5=Tabelle1!A3;=IF(Tabelle2!B5=Tabelle1!B3;=IF(Tabelle2!C5=Tabelle1!C3;than Tabelle2!(Range (A5:H5) Copy---Tabelle1!(Range(I3:P3) paste;
=IF(Tabelle2!A6=Tabelle1!A3;=IF(Tabelle2!B6=Tabelle1!B3;=IF(Tabelle2!C6=Tabelle1!C3;than Tabelle2!(Range (A6:H6) Copy---Tabelle1!(Range(I3:P3) paste;
=IF(Tabelle2!A7=Tabelle1!A3;=IF(Tabelle2!B7=Tabelle1!B3;=IF(Tabelle2!C7=Tabelle1!C3;than Tabelle2!(Range (A7:H7) Copy---Tabelle1!(Range(I3:P3) paste;
=IF(Tabelle2!A8=Tabelle1!A3;=IF(Tabelle2!B8=Tabelle1!B3;=IF(Tabelle2!C8=Tabelle1!C3;than Tabelle2!(Range (A8:H8) Copy---Tabelle1!(Range(I3:P3) paste;
…….
=IF(Tabelle2!A___=Tabelle1!A3;=IF(Tabelle2!B___=Tabelle1!B3;=IF(Tabelle2!C___=Tabelle1!C3;than Tabelle2!(Range (A___:H___) Copy---Tabelle1!(Range(I3:P3) paste;
otherwise Tabelle1!I1”Mistake-not found”
Viele Grüße
Andi
|