Verknüpfungen

Bild

Betrifft: Verknüpfungen von: Alfred
Geschrieben am: 04.02.2005 17:14:05

Hallo Leute
Habe eine Arbeitsmappe mit mehreren Tabellen die mit einem Tabellenblatt aus einer anderen Arbeitsmappe verknüpft ist. Die Daten aus der zweiten Mappe ändern sich öffters und wenn ich eine ältere gespeicherte Arbeitsmappe öffne, kann es durch Unachtsamkeit passieren, das die Verknüpfung aktuallisiert und gespeichert wird. Um dies zu vermeiden möchte ich sämtliche Verküpfungen in allen Tabellenblätter gelöscht aber die Daten in den Zellen verbleiben. Für ein Blatt habe ich schon etwas gefunden.


Sub ExterneVerknüpfungen_entfernen()
    Dim R As Range
    For Each R In Worksheets(1).UsedRange
        If Left(R.Formula, 1) = "=" And InStr(R.Formula, "[") > 1 Then
            R.Value = R.Value
        End If
    Next R
End Sub


Aber wie funktioniert das bei 10 Tabellen?

Danke im voraus

Alfred
Bild


Betrifft: AW: Verknüpfungen von: Ulf
Geschrieben am: 04.02.2005 17:22:40

z.B.:


Sub ExterneVerknüpfungen_entfernen()
    Dim R As Range,ws as worksheet
for each ws in worksheets
    For Each R In Worksheets(1).UsedRange
        If Left(R.Formula, 1) = "=" And InStr(R.Formula, "[") > 1 Then
            R.Value = R.Value
        End If
    Next R
Next ws
End Sub


Ulf


Bild


Betrifft: AW: Verknüpfungen von: Josef Ehrensberger
Geschrieben am: 04.02.2005 17:38:15

Hallo Alfred!

Ein bischen schneller;-)


Sub machFix()
'by Josef Ehrensberger
Dim arr As Variant
Dim wks As Worksheet
Dim n As Long, m As Integer
For Each wks In ThisWorkbook.Worksheets
arr = wks.UsedRange.Formula
On Error Resume Next
   For m = 1 To UBound(arr, 2)
      For n = 1 To UBound(arr, 1)
         If Left(arr(n, m), 1) = "=" And InStr(1, arr(n, m), "[") > 1 Then
         wks.Cells(n, m) = wks.Cells(n, m).Value
         End If
      Next
   Next
Next
End Sub



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: AW: Verknüpfungen von: Alfred
Geschrieben am: 04.02.2005 18:09:53

Hallo Leute

Recht herzlichen Dank haben beide funktioniert.

mfg Alfred


 Bild

Beiträge aus den Excel-Beispielen zum Thema "1. Schritte bei einer User-Form"