Hallo hary!
Habe die Lösung jetzt gefunden.
Danke nochmals für Deine Hilfe und Deine Unterstützung.
Josef
Sub Makro1()
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[12],Pfadschlüssel!R2C8:R60000C9,2,)),"""",VLOOKUP(RC[12],Pfadschlü _
ssel!R2C8:R60000C9,2,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[11],Pfadschlüssel!R2C8:R60000C10,3,)),"""",VLOOKUP(RC[11],Pfadschlü _
ssel!R2C8:R60000C10,3,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[10],Pfadschlüssel!R2C8:R60000C11,4,)),"""",VLOOKUP(RC[10],Pfadschlü _
ssel!R2C8:R60000C11,4,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[9],Pfadschlüssel!R2C8:R60000C12,5,)),"""",VLOOKUP(RC[9],Pfadschlü _
ssel!R2C8:R60000C12,5,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[8],Pfadschlüssel!R2C8:R60000C13,6,)),"""",VLOOKUP(RC[8],Pfadschlü _
ssel!R2C8:R60000C13,6,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[7],Pfadschlüssel!R2C8:R60000C14,7,)),"""",VLOOKUP(RC[7],Pfadschlü _
ssel!R2C8:R60000C14,7,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[6],Pfadschlüssel!R2C8:R60000C15,8,)),"""",VLOOKUP(RC[6],Pfadschlü _
ssel!R2C8:R60000C15,8,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[5],Pfadschlüssel!R2C8:R60000C16,9,)),"""",VLOOKUP(RC[5],Pfadschlü _
ssel!R2C8:R60000C16,9,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[4],Pfadschlüssel!R2C8:R60000C17,10,)),"""",VLOOKUP(RC[4],Pfadschlü _
ssel!R2C8:R60000C17,10,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[3],Pfadschlüssel!R2C8:R60000C18,11,)),"""",VLOOKUP(RC[3],Pfadschlü _
ssel!R2C8:R60000C18,11,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[2],Pfadschlüssel!R2C8:R60000C19,12,)),"""",VLOOKUP(RC[2],Pfadschlü _
ssel!R2C8:R60000C19,12,))"
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[1],Pfadschlüssel!R2C8:R60000C20,13,)),"""",VLOOKUP(RC[1],Pfadschlü _
ssel!R2C8:R60000C20,13,))"
End Sub