Office: Mit Makro Verknüpfungen erstellen

Hallo, ich habe es geschafft ein Makro zu erstellen, das mir in einem Tabellenblatt eine Zeile einfügt und im anderen Tabellenblatt 5 vorformatierte Leerzeilen in die übernächste freie Zeile kopiert.

Der Code sieht folgendermaßen aus:

Sub ErstellenUndKopieren()
Rows(ActiveCell.Row).Insert Shift:=xlDown
Sheets("Tabelle2").Activate
Range("A1:J6").Copy
Range("A65536").End(xlUp).Offset(2, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub



Nun müssen aber noch zwischen der eingefügten Zeile und den 5 kopierten Zeilen Verknüpfungen erstellt werden. Beispielsweise soll die erste Zelle der eingefügten Zeile mit der 2. zelle der 5 kopierten Zeilen verknüpft werden.

Wie kann man da ran gehen?

Bitte um einen Tip!

 

Ok wie man prinzipiell eine verknüpfung hinbekommt weiß ich jetzt:

Sub Makro3()
Selection.Copy
Sheets("Tabelle2").Select
Range("B1").Select
ActiveSheet.Paste Link:=True
End Sub

Jetzt möchte ich aber, dass man bei der Quelle quasi sowas wie

markierte Zelle +1

und bei Ziel halt auch eine beliebige Zelle innerhalb des kopierten zellenblocks wählen kann.

Wie geht das?

Please Help!

 

Zumindest bei mir (Excel 2000) ergibt Dein Makro eine Fehlermeldung, daß die Select-Methode nicht ausgeführt werden kann. Das Setzen einer Auswahl nach dem Kopieren mag er wohl nicht so recht... ;-) Aber mit einer kleinen Änderung läuft es:

Code:

Sub Makro3b()
    Selection.Copy
    Worksheets("Tabelle2").Activate
    ActiveSheet.Range("B1").Activate
    ActiveSheet.Paste link:=True
End Sub

Die ganz kurze Version

Code:

Sub Makro3a()
    Selection.Copy Destination:=Sheets("Tabelle2").Range("B1"), link:=True
End Sub

geht leider nicht, weil "link" sich nicht mit "destination" verträgt (was auch der Grund sein dürfte, warum "select" nach "copy" nicht so recht mag...).

Aber was Du mit

meinst, ist mir jetzt irgendwie nicht so recht klar...

Gruß, Michael