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