Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlinks

Forumthread: Hyperlinks

Hyperlinks
24.01.2008 11:06:00
Gregor
Hallo
Ich möchte in Spalte 3 mit einem Makro alle Zellinhalte löschen, wenn NICHT Hyperlinks.
Wie geht das?
Gruss Gregor

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks
24.01.2008 11:16:15
Josef
Hallo Gregor,
das geht so.
Sub DeleteNoLink()
Dim rng As Range, r As Range

On Error Resume Next
Set rng = Columns(3).SpecialCells(xlCellTypeConstants)
On Error GoTo 0

If Not rng Is Nothing Then
    For Each r In rng
        If r.Hyperlinks.Count = 0 Then r.ClearContents
    Next
End If

End Sub

Gruß Sepp

Anzeige
AW: Hyperlinks
24.01.2008 13:49:00
Gregor
Sepp
Vielen Dank, das suchte ich.
Gregor
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige