---

Guten morgen zusammen,

vielleicht kann mir ja jemand von euch helfen.

Folgendes Thema:

Ich habe zwei Excel Sheets in beiden sind in Spalte A Artikelnummern hinterlegt, zwar fortlaufend sortiert jedoch nicht 100% alle die gleichen wie im anderen Sheet. Viele Artikel sind aber identisch.
In meinem zweitem Sheet habe ich zusätzlich zur Spalte A in Spalte B passende Umsetzungsnummern für mein SAP System. Diese Nummern gehören jeweils zu einer Artikelnummer und sind im zweiten Sheet auch richtig zugeordnet.

Ich möchte jetzt am besten mit einem Macro sagen "Vergleiche Sheet1 Spalte A mit Sheet2 Spalte A ==> bei Textübereinstimmung (z.b. Sheet1 A1 und Sheet2 A9) kopiere mir Sheet2 Text B9 in Sheet1 A1".

So hoffentlich ist das zu verstehen...vielleicht hat ja jemand ne Idee 

Gruß Andreas

------------------
Das Leben ist kein Butterbrot ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

226_001374_sverweis.xls.txt

Hallo Andreas,

Makro geht sicher auch, muss aber nicht sein.

Gruss
Mike

------------------

The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mike,

danke erst mal, für den Anfang schon nicht schlecht, aber jetzt macht er mir nen Verweis, kann man das auch so machen, das das dann als Text gespeichert wird?

Gruß Andreas
------------------
Das Leben ist kein Butterbrot ;-)

[Diese Nachricht wurde von AndreasTWN am 04. Feb. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,

die Ergebnisse des SVERWEISES markieren - kopieren - Bearbeiten - Inhalte einfügen - Werte. (In 2007 auch über das Kontextmenü der rM verfügbar.)

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Andreas,

hier noch eine VBA-Lösung:

Code:

---

Sub Uebernehmen()
    Dim loZeile As Long
    Dim loZaehler As Long
    With Worksheets("Tabelle1")
        For loZaehler = 1 To IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
            On Error Resume Next
            loZeile = Application.Match(.Cells(loZaehler, 1), Worksheets("Tabelle2").Columns(1), 0)
            On Error GoTo 0
            If loZeile <> 0 Then .Cells(loZaehler, 2) = Worksheets("Tabelle2").Cells(loZeile, 2)
            loZeile = 0
        Next loZaehler
    End With
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

226_001374_sverweis.xls.txt

So hab das mal probiert, aber ich komm auf keinen grünen Zweig. Hab mal ein paar Zeilen eingefügt um das zu verdeutlichen.

Vielleicht kann sich das nochmal jemand anschauen. Wenn ich dann die Formel nach unten in die nächsten Zeilen kopieren verändern sich
auch wieder die Bezüge und es passt nicht mehr. Siehe auch im Beispiel. Bei über 1000 Artikeln dann jede Formel händisch anfassen wäre
auch nicht ganz optimal 

Vielen Dank schonmal für eine Antwort

Gruß Andreas

------------------
Das Leben ist kein Butterbrot ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andreas,

Wenn du eine Formel kopierst, und dabei einen Bezug auf einen Zellenbereich hast, ist ein $ zum fixieren angesagt.
Mit dem Verweis muss so viel ich weiss die Abfrage über die erste Spalte laufen, also der gesuchte Wert muss in der
ersten Spalte stehen.

In deinen Angaben der Artikelnummern sind jede Menge Leerschläge am Ende drin. Somit fällt der Vergleich für Excel flach.
Mit der Funktion "Glätten" kannst du die Leerschläge raushauen.

Gruss
Mike

------------------

The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Beverly

Danke damit hat es wunderbar geklappt...

@Oberli Mike
Habe inzwischen schon geglättet, mit dem Macro von Beverly hat es dann super geklappt

@All
Vielen Dank an alle.

Gruß Andreas

------------------
Das Leben ist kein Butterbrot ;-)

[Diese Nachricht wurde von AndreasTWN am 04. Feb. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP