Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellen vergleichen .. Wert bei Fund übertragen

Tabellen vergleichen .. Wert bei Fund übertragen
Hans
Hallo Leute ... ich habe ein Problem.
Ich habe eine Neue und eine Alte Liste.
Die Neue Liste besteht nur noch aus einer Teile Nummer (Spalte A)
Die Alte Lite besteht aus zwei Teile Nummern. (Spalte A und B)
Nun möchte ich die zweite Teile Nummer der alten in die Neue einfügen
Das heisst ich möchte von der Neuen Liste aus ... die beiden Spalten A vergleichen.
Und wenn in beiden die gleiche Nummer vorkommt soll die Nummer der Spalte B hinzugefügt werden.
https://www.herber.de/bbs/user/70388.xls
Hoffe mir kann einer Helfen .. bzw versteht was ich meine
LG
Hans

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellen vergleichen .. Wert bei Fund übertragen
02.07.2010 14:17:18
AndreasG
in "neue Liste" B2:
=WENN(ISTFEHLER(SVERWEIS(A2;'Alte Liste'!$A$2:$B$8;2;FALSCH));"";SVERWEIS(A2;'Alte Liste'!$A$2:$B$8; 2;FALSCH))
und runterkopieren
Grüße
Andreas
AW: Tabellen vergleichen .. Wert bei Fund übertragen
02.07.2010 15:00:25
Hans
Hallo Andreas .. das funktioniert leider nur bei ca. 10% der Liste .. alles andere bleibt leer.
AW: Tabellen vergleichen .. Wert bei Fund übertragen
05.07.2010 07:56:24
AndreasG
das kann durchaus sein...
dann sind die Werte in der Referezdatei A2:B8 alte Liste nicht vorhanden!
AW: Tabellen vergleichen .. Wert bei Fund übertragen
02.07.2010 15:45:47
Peter
Hallo Hans,
vielleicht hilft das Makro:
Option Explicit
Public Sub Zuordnen()
Dim WkSh_Q  As Worksheet
Dim WkSh_Z  As Worksheet
Dim lZeile  As Long
Dim rZelle  As Range
   Application.ScreenUpdating = False
   
   Set WkSh_Q = ThisWorkbook.Worksheets("Alte Liste")
   Set WkSh_Z = ThisWorkbook.Worksheets("Neue Liste")
   
   For lZeile = 2 To WkSh_Z.Cells(Rows.Count, 1).End(xlUp).Row
      With WkSh_Q.Columns(1)
         Set rZelle = .Find(What:=WkSh_Z.Range("A" & lZeile).Value, Lookat:=xlWhole, _
            LookIn:=xlValues)
         If Not rZelle Is Nothing Then
            WkSh_Z.Range("B" & lZeile).Value = WkSh_Q.Range("B" & rZelle.Row).Value
         End If
      End With
   Next lZeile
   
   Application.ScreenUpdating = True
End Sub
Gruß Peter
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige