Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Letzte Verknüpfung in einem Tabellenblatt löschen

Gruppe

Extern

Problem

Wie kann ich die letzte, in einem Tabellenblatt enthaltene Verknüpfung löschen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub LetzteVerknuepfung()
   Dim lCell As Long
   With ActiveSheet.UsedRange
      For lCell = .Cells.Count To 1 Step -1
         If InStr(.Cells(lCell).Formula, "[") And _
            InStr(.Cells(lCell).Formula, "]") Then
            MsgBox "Verknüpfung in Zelle " & _
               .Cells(lCell).Address(False, False) & " wird gelöscht!"
            .Cells(lCell).ClearContents
            End
         End If
      Next lCell
   End With
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Link und Extern