Sub
Main()
Call
DoIt(
"Tabelle2"
,
"A:A"
,
"xx"
,
"Tabelle1"
,
"A:A"
,
"pp"
)
End
Sub
Sub
DoIt(Qellblatt, QuellSpalte, QuellZeile, ZielBlatt, ZielSpalte, ZielZeile)
Sheets(ZielBlatt).Range(ZielSpalte).Find(ZielZeile).Offset(0, 7).Formula = _
Sheets(Qellblatt).Range(QuellSpalte).Find(QuellZeile).Offset(0, 6).Formula
End
Sub