Herbers Excel-Forum - das Archiv

Verknüpfungen übertragen nicht alles

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Verknüpfungen übertragen nicht alles
von: alex
Geschrieben am: 24.09.2003 09:46:59
Guten morgen.

Ich hab in einem Excel Dokument Verknüpfungen auf ein zweites Excel Dokument.
Die Quellzellen enthalten teilweise recht viel Text,von dem nur die Hälfte in den Verknüpfungszielen steht. Aktualisiert wird das ganze mit

activeworkbook.updatelink name:=dok.xls type:=xlExcelLinks

Wie kann ich Excel dazu bewegen mir den kompletten Text in der verknüpften Zelle anzuzeigen?

Gruss Alex.

Bild

Betrifft: AW: Verknüpfungen übertragen nicht alles
von: Karl-Otto Reimann
Geschrieben am: 24.09.2003 10:33:44
Hallo Alex

Schon mal folgende Varianten versucht:
activeworkbook.updatelink name:=dok.xls type:=xlLinkTypeExcelLinks
activeworkbook.updatelink name:=dok.xls type:=xlLinkTypeOLELinks
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

Gruß
K.O.
Bild

Betrifft: AW: Verknüpfungen übertragen nicht alles
von: alex
Geschrieben am: 24.09.2003 10:48:14
nein probier ich gleich. Danke
Bild

Betrifft: AW: Verknüpfungen übertragen nicht alles
von: alex
Geschrieben am: 24.09.2003 11:02:26
Hab alle 3 Varianten Ausprobiert. Das Problem besteht leider weiterhin,unabhängig vom Linktype
Bild

Betrifft: AW: Verknüpfungen übertragen nicht alles
von: Karl-Otto Reimann
Geschrieben am: 24.09.2003 11:20:05
Hallo Alex
Vielleicht hilft folgendes:
Unter Bearbeiten/Verknüpfungen/Aktualisieren/manuell

Sub Makro6()
Application.ScreenUpdating = False
NextTime = Now + TimeValue("00:00:15")
Application.OnTime NextTime, "Makro6"
ActiveWorkbook.UpdateLink Name:="VTPLUS|NTV208!1,1,,,B(1/17/11/17)", Type:= _
xlOLELinks
End Sub


oder:

Was passiert, wenn Du mit kopieren/einfügen/Werte den Inhalt sichtbar machen wollst?
Gruß K.O.
Bild

Betrifft: AW: Verknüpfungen übertragen nicht alles
von: alex
Geschrieben am: 24.09.2003 11:30:30
Verknüpfungen mit OLELinks funktionieren leider nicht.

Die Seite mit den Zielen der Verknüpfung ist geschützt. Wenn ich doppelt auf die entsprechende Zelle klicke, geht die Quelldatei auf.Nach schliessen der Quelldatei hab ich auch wieder den kompletten Text.

NUR beim nächsten LinkUpdate besteht das selbe Problem wieder.

Hier mal der komplette Code der in DieseArbeitsmappe steht.

Public zoom As Integer
Public kz As String

Sub Workbook_Open()
DieseArbeitsmappe.zoom = 63
If ActiveWorkbook.Name = "ablage_client.XLS" Then
GoTo neueMappe
End If
If DieseArbeitsmappe.kz = "" Then
DieseArbeitsmappe.kz = Sheets("Master").Range("i2")
End If
If DieseArbeitsmappe.kz = "" Then
DieseArbeitsmappe.kz = InputBox("Bitte geben sie Ihr Kürzel ein")
Sheets("Master").Range("i2") = DieseArbeitsmappe.kz
End If
Sheets(DieseArbeitsmappe.kz + "_mappe").Protect Password:="ak", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFiltering:=True
Sheets("MASTER").Protect Password:="ak", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFiltering:=True
Call KalenderClient_AufgabenUebernehmen2
GoTo ende1
neueMappe:
DieseArbeitsmappe.kz = InputBox("Bitte geben Sie Ihr Kürzel ein.")
Sheets("Master").Range("i2") = DieseArbeitsmappe.kz
Sheets("Master").Protect Password:="ak", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFiltering:=True
ende1:
End Sub

Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim wkb As Workbook
Set wkb = Application.ActiveWorkbook
If Sh.Name = "Master" Then
ActiveSheet.Unprotect Password:="ak"
ActiveWorkbook.UpdateLink Name:= _
"M:\KFIS2000Neu\VERKAUF_MARKETING\GLVT\ablage_master.XLS", Type:=xlExcelLinks
ActiveSheet.Protect Password:="ak", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFiltering:=True
End If
End Sub



Gruß Alex.
Bild

Betrifft: AW: Verknüpfungen übertragen nicht alles
von: Alex
Geschrieben am: 24.09.2003 12:53:53
bei Kopieren/Einfügen in ein 2. Blatt wird der Text so wie er im Verknüpfungsziel steht (nämlich nur die Hälfte) eingefügt.
 Bild