Hyperlinks

Forumthread: Hyperlinks

Hyperlinks

24.01.2008 12: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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hyperlinks

24.01.2008 12:16:15

Josef
AW: Hyperlinks

24.01.2008 14:49:00

Gregor

AW: Hyperlinks

24.01.2008 12: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

AW: Hyperlinks

24.01.2008 14:49:00

Gregor

Sepp
Vielen Dank, das suchte ich.
Gregor

Forumthread: Hyperlinks

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread