HERBERS Excel-Forum - die Beispiele

Thema: Letzte Verknüpfung in einem Tabellenblatt löschen

Home

Gruppe

Link

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

Defekter Link bei Forumsbeiträgen Defekter Link bei Forumsbeiträgen
Defekter Link bei Forumsbeiträgen Hyperlink per Code aktivieren, gibt Fehlerhinweis
Verlinkung Excel-Powerpoint VBA Links im Verzeichnis auslesen
VLOOKUP auf Links funktioniert offline xlDialogInsertHyperlink.show
Hyperlinks in Excel Link ändert sich beim Sortieren
sverweis nach links möglich? Grafik - Linie nach unten, Kriterien links
Bereich von rechts nach links auslesen? Hyperlink auf Excel-Datei funktioniert nicht
Hyperlinks automatisch starten Hyperlink zu Wordtabelle mit Textmarke
Userform. Link datei Hyperlink variabel
Hyperlink - UserForm Hyperlink öffnet Arbeitsmappe mit Parametern
Excel links auf seite Mail mit Link und Parameter erzeugen
Links automatisch aus Zellen generien Hyperlinks finden
Hyperlink zurückwandeln? Hyperlink zurückwandeln?
Hyperlink zurückwandeln? Hyperlink
Hyperlink als Button Dateiname externer Datei ändern
Links to Other Workbooks - Nur wo? Hyperlink öffnen - URL in Zelle
Hyperlink ... Verkürzung der Verzeichnisauswahl Tabelle mit Link im Forum posten
Hyperlinks - Standardordner ändern Tabellenblatt aus externer Exceldatei kopieren
Hyperlink bestimmten Text blinken lassen
verlinkungen in markiertem bereich erneuern Blinkender Kreis nach Zahl in Zelle?
Daten aus Zellen autom. nach Links verschieben Hyperlink
ConboBox mit externe Daten füllen gutes WORD-Forum, Link?
Hyperlinks Set oWS = oWB.Worksheets(Range("link").Parent.Name
Hyperlink TEIL/RECHTS/LINKS
Prüfen ob Hyperlink