Microsoft Office Tutorials and References
In Depth Information
7.5 Die VBA-Ecke
7.5 Die VBA-Ecke
Das Makro durchsucht die aktuelle Tabelle Zelle für Zelle.
Wird eine Verknüpfung entdeckt, fragt eine erste Meldung,
ob diese in den gespeicherten Wert umzuwandeln fist.
Bestätigen Sie das mit Ja, wird die nächste Verknüpfung
gesucht. Mit Klick auf Nein erscheint noch eine Meldung, die
wissen möchte, ob Sie die Verknüpfung löschen wollen.
Auch dabei haben Sie die Wahl zwischen Ja und Nein .
7.5.1 Verknüpfungen suchen und löschen
Die Suche nach externen Verknüpfungen fist oft sehr
mühsam, Excel markiert zwar bei Bedarf über Start/
Bearbeiten/Suchen und Auswählen/Inhalte auswählen/
Formeln alle Formelzellen, aber ob diese auch Verknüp-
fungen enthalten, lässt sich auf den ersten Blick nicht
erkennen.
Sub VerknüpfungenLöschen()
Dim zelle As Range
Dim okMSg
For Each zelle In _
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
If InStr(1, UCase(zelle.Formula), "XLS]“) <> 0 Then
okMSg = MsgBox("Verknüpfung in Wert umwandeln?“ _
& vbCr & zelle.Address & ": " & zelle.FormulaLo-
cal, _
vbYesNo, "Verknüpfung umwandeln“)
If okMSg = vbYes Then
zelle.Value = zelle.Text
Else
okMSg = MsgBox("Verknüpfung löschen?“ & vbCr _
& zelle.Address & ": " & zelle.FormulaLocal, _
vbYesNo, "Verknüpfung löschen“)
If okMSg = vbYes Then zelle.Value = "“
End If
End If
Next
End Sub
Listing 7.1 Makro zur Verwaltung von Verknüpfungen
Für ein VBA-Makro, das eine komplette Tabelle nach
Verknüpfungen durchsucht, brauchen Sie eine Schleife.
Eine kleine Konstante sorgt dafür, dass nur Zellen
bearbeitet werden, in denen Formeln enthalten sind, und
nichts anderes sind ja Verknüpfungen:
xlCellTypeFormulas
Um die Formel auch noch als Verknüpfung zu
identifizieren, lassen Sie mit Instr den Inhalt nach einem
Verknüpfungsteil, z.B. nach der Dateiendung, gefolgt von
einer Klammer, durchsuchen:
InStr(1, UCase(zelle.Formula), "XLS]“)
CD-ROM Die Arbeitsmappe finden Sie auf der
Buch-CD unter VBA Verknüpfungen.xlsm .
Achten Sie auf die Sicherheitsmeldung nach dem
Öffnen, bestätigen Sie diese mit Klick auf Aktivieren .
CD-ROM
Abbildung 7.32
Verknüpfungen per Makro
suchen und entfernen
 
Search JabSto ::




Custom Search