Anzeige
Archiv - Navigation
536to540
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
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten vergleichen und uebertragen

Spalten vergleichen und uebertragen
25.12.2004 14:56:01
Helmut
Hallo Excel-Experten,
ein schoenes Weihnachtsfest wuensche ich von mir.
Wie in der Datei -Uebertrag Tabelle.xls- als Beispiel zum besseren Verstehen angezeigt, möchte ich aus der Datei mit zwei Tabellen folgendes erreichen.
Mit den beiden Tabellen (Spalte B = Suchbegriff) soll verglichen werden, wenn der Suchbegriff in beiden Arb.Blaettern vorhanden, soll der Inhalt aus Tabelle Quelle (Spalte H)in der Tabelle Umsatz (Spalte F) uebertragen werden.
Die Zeilenzahl der Tabellen sind ca. 35000 Zeilen.
Wer hat eine erfolgversprechende Loesung ?
MFG
Helmut Thellmann

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten vergleichen und uebertragen
Beni
Hallo Helmut,
Gruss Beni

Sub Spalten_vergleichen_und_uebertragen()
Dim i As Long
Dim Wert As Variant
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Wert = Sheets("Umsatz").Cells(i, 2)
Set c = Sheets("Quelle").Columns(2).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then Sheets("Umsatz").Cells(i, 6) = c(1, 7)
Next i
End Sub

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige