Funktion für Vergleichen + eintragen

Computer: Software & Programmierung Office Software
1

Hallo wwwler

Stehe auf dem Schlauch :frowning:

Excel 2000

Blatt 1 - Spalte A… hunderte von Einträgen
Blatt 2 - Spalte A… Auswahl von 66 Einträgen

  • Spalte B… dazu gehörende Nummern (66).

Aufgabe wäre

Blatt 1 und 2 in Spalte A miteinander vergleichen und bei
Übereinstimmung in Blatt 1 Spalte B die dazu gehörende Nummer eintragen.

Danke im voraus für Eure Hilfe.
Gruss
Cabochon

2

Hallo Cabochon,

einfach das hier kopieren:

Sub www()
For i = 1 To Ende
For x = 1 To 66
If Worksheets(„Tabelle1“).Cells(i, 1).Value = Worksheets(„Tabelle2“).Cells(x, 1).Value Then
Worksheets(„Tabelle1“).Cells(i, 2).Value = Worksheets(„Tabelle2“).Cells(x, 2).Value
x = 66
End If
Next
Next
End Sub

Und als Makro eintragen. „Ende“ und „Tabelle1“ und „Tabelle2“ durch die jeweils richtigen Eintragungen ersetzen.
Dann das Makro durchlaufen lassen. Fertig!

Grüße,

Anwar

3

Hallo Anwar

Vielen Dank für deine prompte Hilfe.
Probiere es gleich aus :smile:

Schönen Tag noch
Cabochon

4

Hallo

Blatt 1 - Spalte A… hunderte von Einträgen
Blatt 2 - Spalte A… Auswahl von 66 Einträgen

  • Spalte B… dazu gehörende Nummern (66).
    Blatt 1 und 2 in Spalte A miteinander vergleichen und bei
    Übereinstimmung in Blatt 1 Spalte B die dazu gehörende Nummer
    eintragen.

oder als normale Formeln:
Blatt1!B1: =SVERWEIS(Blatt1!A1;Blatt2!A1:Bxxx;2;0)
und kopieren in Blatt1!B2:Byyy

cu
kai