Guten Tag. Ich versuche aus der Tabelle PLZ die Plz aus Spalte "A" in die Tabelle "ArbDat" Spalte "G" einfügen zu lassen, wenn der jeweilige Ort in PLZ Spalte "C" mit dem Ort in Tabelle ArbDat Spalte "H" identisch ist. Meine bisherige Formel lautet:
. Da mir der Code aber öfters durch andere beschädigt/ gelöscht in Unkenntnis wird, hätte ich das gerne mit einem VBA Code erledigt. (Das findet nicht jeder).
Nun mein Versuch, wofür ich mal Unterstützung bräuchte (Anhang). Er löscht mir lediglich die Spalte "G", fügt aber nichts Neues ein. (Modul3)
Danke und Gruß Josef
Code:
=WENN(H2<>"";INDEX(PLZ!$A:$A;VERGLEICH(H2;PLZ!$C:$C;0));"")
Nun mein Versuch, wofür ich mal Unterstützung bräuchte (Anhang). Er löscht mir lediglich die Spalte "G", fügt aber nichts Neues ein. (Modul3)
Code:
Option Explicit
Sub PLZ()
Dim g As Long ' wozu brauchst du die Variable h?
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("ArbTab")
With wks.Cells(2, 7).Resize(wks.Cells(Rows.Count, 8).End(xlUp).Row - 1)
.FormulaR1C1 = "=iferror(vlookup(rc[3],PLZ!r1c1:r8c2,2,0),"""")"
.Value = .Value
End With
End Sub
Danke und Gruß Josef