Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Excel Verknüpfungen löschen | Herbers Excel-Forum


Betrifft: Excel Verknüpfungen löschen von: Leo
Geschrieben am: 23.10.2008 14:57:16

Hi alle zusammen,

Ich möchte gerne die Verknüpfungen in

 Excel-->Bearbeiten-->Verknüpfungen...

rausnehmen.
Gibt es da eine einfache Möglichkeit, dies in Excel 2000 zu realisieren?

Gruß

Leo

  

Betrifft: AW: Excel Verknüpfungen löschen von: David
Geschrieben am: 23.10.2008 15:00:49

Hallo Leo,

per VBA so:

ActiveWorkbook.BreakLink Name:='Pfad/Dateiname', Type:=xlExcelLinks



Gruß
David


  

Betrifft: AW: Excel Verknüpfungen löschen von: Leo
Geschrieben am: 23.10.2008 15:31:50

Hallo David,

Der befehl geht leider nicht.
Hab diesen auch schon in anderen einschlägigen Foren gefunden.
Der befehl bringt folgende Fehlermeldung:

Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht



mfg
Leo


  

Betrifft: AW: Excel Verknüpfungen löschen von: David
Geschrieben am: 23.10.2008 15:33:35

Hallo Leo,

dann wirf doch einfach den Makro-Rekorder an und zeichne auf, während du eine der Verknüpfungen manuell löschst. Dann einfach den aufgezeichneten Code verwenden.

Ohne deinen gesamten Code zu kennen, wird man hier nicht weiterhelfen können.

Gruß
David


  

Betrifft: AW: Excel Verknüpfungen löschen von: Leo
Geschrieben am: 23.10.2008 15:36:40

Hallo David,

Verwende Excel 2000 und dort kann man dise Links noch nicht manuell löschen:

Mein Code:

Sub Verknuepfung_loeschen()

Dim oXlLinks

oXlLinks = ActiveWorkbook.LinkSources(xlExcelLinks)

MsgBox UBound(oXlLinks)

For i = 1 To UBound(oXlLinks)
MsgBox oXlLinks(i)
Next i

ThisWorkbook.Breaklink Name:=oXlLinks(1), Type:=xlLinkTypeExcelLinks

End Sub



mfg Leo


  

Betrifft: AW: Excel Verknüpfungen löschen von: David
Geschrieben am: 23.10.2008 15:43:52

Hallo Leo,

bei mir (Excel 2003) geht der Code, hängt dann also mit der Version zusammen. Vielleicht geht das dort gar nicht?!

Ich hatte für mich mal ein Makro geschrieben, das die einzelnen Zellen nach externen Verknüpfungen durchsucht (indem einfach der entsprechende Dateiname gesucht wird) und in diesen Zellen dann die Werte einfügt. Vielleicht kannst du das für deine Zwecke verwenden und entsprechend umschreiben. Wenn die externe Datei immer wieder eine andere ist, muss man die Suche vielleicht umschreiben, aber prinzipiell ist das sicher anwendbar.

Option Explicit

Sub werte()
Dim Zeile, i, j, Wahl, Check As Double

On Error Resume Next
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Wahl = MsgBox("Mit dieser Funktion werden in den Spalten H:K alle Zellen, in denen eine Formel"  _
& Chr(13) _
            & "auf eine externe Datei verweist, durch ihren momentanen Wert ersetzt." _
            & Chr$(13) & Chr$(13) & "Weiter?", vbYesNo)
If Wahl = vbYes Then
    Zeile = Range("H1000").End(xlUp).Row
    For i = 10 To Zeile
        For j = 8 To 11
            With Cells(i, j)
                Check = InStr(1, .Formula, "Germany Workpapers") + InStr(1, .Formula, "balance  _
SAP")
                If Check <> 0 Then
                    .Value = .Value
                End If
            End With
        Next
    Next
End If
    
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub



Gruß
David