Tabellen verknüpfen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Tabellen verknüpfen
von: Sybille
Geschrieben am: 23.06.2002 - 19:51:30

Vielen Dank erst mal an Robert für den nachstehenden Befehl!
Sub verknpf()
' Der gewünschte Quellbereich wird kopiert
Workbooks("Mappe1").Sheets("Tabelle1").Range("A1:D6").Copy
' Die Zieltabelle wird aktiviert
Workbooks("Mappe2").Sheets("Tabelle1").Activate
' Die Daten werden verknüpft eingefügt
ActiveSheet.Paste Link:=True
End Sub
Die Daten werden im Moment an der Stelle eingefügt wo der Cursor steht. Wie erreiche ich es das er in einem bestimmten Zellbereich eingefügt wird im aktiven Blatt. z.B. Bereich A8:H65
nach oben   nach unten

Re: Tabellen verknüpfen
von: Rolf, Lgh.
Geschrieben am: 23.06.2002 - 20:14:54

Hallo Sybille,
nicht getestet:

Sub verknpf()
  ' Der gewünschte Quellbereich wird kopiert
  Workbooks("Mappe1").Sheets("Tabelle1").Range("A1:D6").Copy
  ' Die Zieltabelle wird aktiviert
  Workbooks("Mappe2").Sheets("Tabelle1").Range("A8").Activate
  ' Die Daten werden verknüpft eingefügt
  ActiveSheet.Paste Link:=True
End Sub

Gruß Rolf
nach oben   nach unten

Re: Tabellen verknüpfen
von: Sybille
Geschrieben am: 24.06.2002 - 17:56:32

Hallo Rolf
geht leider nicht.

Gruß Sybille


nach oben   nach unten

Re: Tabellen verknüpfen
von: Rolf, Lgh.
Geschrieben am: 24.06.2002 - 18:10:05

Warum nicht? Fehlermeldung? - Beide Tabellen müssen geöffnet sein!

nach oben   nach unten

Re: Tabellen verknüpfen
von: Rolf, Lgh.
Geschrieben am: 24.06.2002 - 18:28:49

Warum nicht? Fehlermeldung? - Beide Tabellen müssen geöffnet sein!

nach oben   nach unten

Re: Tabellen verknüpfen
von: Sybille
Geschrieben am: 24.06.2002 - 21:39:34

Hallo Rolf,

Beide Tabellen sind auf.
Fehlermeldung: Die Activate-Methode des Range-Objektes kann nicht ausgeführt werden.

Gruß
Sybille

nach oben   nach unten

Re: Tabellen verknüpfen
von: Rolf, Lgh.
Geschrieben am: 25.06.2002 - 19:50:26

Jetzt getestet:

Sub verknpf()
  ' Der gewünschte Quellbereich wird kopiert
  Workbooks("Mappe1.xls").Worksheets("Tabelle1").Range("A1:D6").Copy
  ' Die Zieltabelle wird aktiviert
  Workbooks("Mappe2.xls").Worksheets("Tabelle1").Activate
  Range("A8").Activate
  ' Die Daten werden verknüpft eingefügt
  ActiveSheet.Paste Link:=True
End Sub

nach oben   nach unten

Re: Tabellen verknüpfen
von: Sybille
Geschrieben am: 26.06.2002 - 10:09:36

Danke

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabellen verknüpfen"