Re: Externe Verweise finden?!?
02.01.2003 13:10:01
regina
Hallo Jan,
mit Strg + # kannst Du Dir alle Formeln im Arbeitsblatt ansehen.ansonsten habe ich ein MAKRO, hab es selbst noch nicht verwendet, ist noch druckfrisch.
Mit dem Makro werden alle Verknüpfungen die in der Arbeitsmappe enthalten sind ,in einer separaten Tab dokumentiert.
Sub VerknüpfungenDokumentieren()
Dim Bereich As Range
Dim zelle As Range
Dim Blatt As Worksheet
Dim Tabelle As Worksheet
Set Tabelle = Sheets.Add
i = 1
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Activate
Set Bereich = Blatt.Range(Cells(1, 1), Selection.SpecialCells(xlCellTypeLastCell))
For Each zelle In Bereich
If ((InStr(zelle.Formula, "=") > 0) And (InStr(zelle.Formula, "\") > 0)) Then
Tabelle.Cells(i, 1) = zelle.Address
Tabelle.Cells(i, 2).Value = " " & zelle.Formula
Tabelle.Cells(i, 3) = zelle.Value
i = i + 1
End If
Next
Next
End Sub
ein zweites Makro entfernt die Verknüpfungen.
Übernehme das Makro direkt in deine Arbeitsmappe und starte es von dort.
Achtung; dass Makro entfernt die Verknüpfungen nur, wenn alle verknüpften Arbeitsmappen geschlossen sind.
Die ehemals verknüpften Werte bleiben dabei aber erhalten.
Sub VerknüpfungenErsetzen()
Dim zelle As Range
Dim Tabelle As Worksheet
For Each Tabelle In ActiveWorkbook.Worksheets
Tabelle.Activate
For Each zelle In Tabelle.UsedRange
If InStr(zelle.Formula, "[") > 0 Then zelle.Value = zelle.Value
Next zelle
Next Tabelle
End Sub
Ich habe davon noch nichts getestet.
Mir wurde aber auch schon öfter geholfen!
gruß Regina