Texte suchen und einfügen

Hallo,
ich habe 2 riesige Excel-Tabellen, die 2. ist eine Erweiterung an Datensätzen der Ersten und die gültige Version, die fortgeschrieben wird.
Bei der neuen Version sind mir die Daten (= Text; Personen-Namen) in der Spalte C verloren gegangen. Und diese Namen soll Excel wieder in Spalte C der 2.Version hineinschreiben, indem es in der alten 1. Version nachschaut.
In der Spalte J stehen Zahlen (=fortlaufende Nummern). Jeder Nr. ist genau ein Name zugeordnet, aber pro Name kann es mehrere Nummern geben. Die Zeilen sind aufsteigend nach Nummern sortiert, aber zwischendurch fehlen auch Nummern, weil die entsprechenden Datensätze nicht in diese Tabelle hinein gehören.
Gibt es irgendeine Verweis-Funktion o.ä., die in etwa wie folgt funktioniert:
Schau in Tabelle 1 in Spalte J, erste Zeile nach einer Nr., schau in Spalte C der gleichen Zeile nach dem entsprechenden Text. Dann geh in Tabelle 2, suche die entsprechende Nr. wie in Tabelle 1, und füge diesen Text in die Spalte C von Tabelle 2 zu der selben Nr. ein?
Vielen Dank für Eure Hilfe!
Bernhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub test() for i = 1 to 65536 for j = 1 to 65536 with sheets("Tabelle2") if .range("J" & i).value = sheets("Tabelle1").range("J" & j).value then .range("C" & i).value = sheets("Tabelle1").range("C" & j).value end if end with next j next i End Sub

Sub machs() Dim wsAlt As Worksheet, wsNeu As Worksheet, R As Range Dim C As Range, rngSuch As Range Set wsAlt = Worksheets("Blatt1") 'hier stehen alle Daten Set wsNeu = Worksheets("Blatt2") 'hier fehlen die Namen Set rngSuch = wsAlt.Range("J:J") 'Spalte mit den fortlaufenden Nummern With wsNeu For Each R In .Range("J1:J" & .Range("J65536").End(xlUp).Row) Set C = rngSuch.Find(R, lookat:=xlWhole) If Not C Is Nothing Then R.Offset(0, -7).Value = C.Offset(0, -7).Value Next R End With End Sub

Hi Bernhard,
zu Gunsten einer besseren Performance (auch wenn der Durchlauf nur 1 mal stattfindet) würde ich die Find-Methode bevorzugen.
Mit Alt+F11 den VBA-Editor öffnen, über "Einfügen" ein Modul einfügen. In das rechte leere Fenster diesen Code reinkopieren, den Cursor mitten in den Code setzen und F5 zum Starten drücken (vorher allerdings noch die Blattnamen anpassen!!!):
Option Explicit


Sub machs()
Dim wsAlt As Worksheet, wsNeu As Worksheet, R As Range
Dim C As Range, rngSuch As Range
Set wsAlt = Worksheets("Tabelle1") 'hier stehen alle Daten
Set wsNeu = Worksheets("Tabelle2") 'hier fehlen die Namen
Set rngSuch = wsAlt.Range("J:J") 'Spalte mit den fortlaufenden Nummern
With wsNeu
For Each R In .Range("J1:J" & .Range("J65536").End(xlUp).Row)
Set C = rngSuch.Find(R, lookat:=xlWhole)
If Not C Is Nothing Then R.Offset(0, -7).Value = C.Offset(0, -7).Value
Next R
End With
End Sub

Grüße Boris

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Texte suchen und einfügen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread