Hallo, ich habe folgenden Code von UweD..
Set TB1 = ThisWorkbook.Sheets("Tabelle1")
EZ = 2
SP = 10
With TB1
LR = .Cells(.Rows.count, "A").End(xlUp).row
.Range(Cells(EZ, SP), Cells(LR, SP)).Formula = _
"=IFERROR(VLOOKUP(G2,'Tabelle2'!$A:$I,8,0),"""")"
.Cells(1, SP) = "Tmp"
If .AutoFilterMode Then .AutoFilterMode = False
.Columns(SP).AutoFilter
.Columns(SP).AutoFilter Field:=1, Criteria1:="ja"
.Range(Cells(EZ, 9), Cells(LR, 9)).Value = "=IFERROR(VLOOKUP(A2,'Tabelle2'!$A:$J,10,0),"""")"
.AutoFilterMode = False
.Columns(SP).ClearContents
.Cells(1, 9) = "Sonstiges"
End With
Der Code kopiert von der 9. Spalte in Tabelle 2 in die 10. Spalte von Tabelle 1 und filtert nach dem Kriterium "ja".
Der Code soll in der Spalte 9 von der 1. Tabelle den Text einfügen, welcher sich in der 10. Spalte in Tabelle 2 befindet. Es wird aber nichts oder eine 0 eingefügt.
Der Code funktioniert für die anderen Spalten:
.Range(Cells(EZ, 3), Cells(LR, 3)).Value = "=IFERROR(VLOOKUP(A2,'Tabelle2'!$A:$D,$,0),"""")"
habt ihr eine idee, an was es liegen könnte?