Sub
Verknüpfung()
‘ Werte festlegen
Dim
Ziel1
As
Range
Dim
Z1
As
String
Dim
Quelle1
As
Range
Dim
Q1
As
String
Sheets(„Tabelle1“).
Select
Z1 = „xx“
Set
Ziel1 = Range(„A:A“).Find(Z1)
Sheets(„Tabelle2“).
Select
Q1 = „pp“
Set
Quelle1 = Range(„A:A“).Find(Z1)
‘ Quelle suchen
Quelle1.Activate
ActiveCell.Offset(-1, 6).Copy
‘ Ziel suchen und Verknüpfung einfügen
Sheets(„Tabelle1“).
Select
Ziel1.Activate
ActiveCell.Offset(-1, 1).
Select
ActiveSheet.Paste Link:=
True
End
Sub