Formel in Spalte soll ersetzen

[mahoaga]

Hallo liebe Community,


ich muss euch um euer Rat bitten. Es geht um folgendes:

Ich habe 2 verschiedene Tabellen.

Tabelle 1: 24000 Einträge 2 Spalten (Spalte A: PLZ, Spalte B: Firma)
Tabelle 2: 3000 Einträge 2 Spalten (Spalte A: PLZ, Spalte B: Firma)


Als Erstes soll die Funktion schauen ob sich in der Tabelle1 - Spalte B2 die Firma "DPAG" befindet.
WENN JA, dann soll es in dessen A2 die PLZ nehmen, und schauen OB diese PLZ sich IRGENDWO in Tabelle 2 - Spalte PLZ befindet.
WENN JA, dann soll es in Tabelle 2 in der zur gesuchten(gefundenen) PLZ, die B Spalte -  Firma XYZ nehmen und in Tabelle 1 - Spalte B2 ersetzen.

Und dementsprechend sollten alle 24000 Einträge durchgegangen werden.


Ich wäre euch für eure Antworten SEHR DANKBAR!

LG

[Kuwer]

Hallo,

Als Erstes soll die Funktion schauen ob sich in der Tabelle1 - Spalte B2 die Firma "DPAG" befindet.

und wenn nicht?

Gruß Uwe

[mahoaga]

Hallo,


und wenn nicht?

Gruß Uwe

Dann soll es die jeweilige Zeile Ignorieren und weiter suchen.

[Kuwer]

Hallo,

Sub Abgleich()

  Dim lngA As Long, lngB As Long

  Dim varA As Variant, varB As Variant

  varA = Sheets("Tabelle1").Cells(2, 1).CurrentRegion.Value

  varB = Sheets("Tabelle2").Cells(2, 1).CurrentRegion.Value

  

  For lngA = 2 To UBound(varA)

    If varA(lngA, 2) = "DPAG" Then

      For lngB = 2 To UBound(varB)

        If varB(lngB, 1) = varA(lngA, 1) Then

          varA(lngA, 2) = varB(lngB, 2)

          Exit For

        End If

      Next lngB

    End If

  Next lngA

  Sheets("Tabelle1").Cells(2, 1).CurrentRegion.Value = varA

End Sub

Gruß Uwe