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
AW: Hyperlinks 24.01.2008 11:16:15 Josef Hallo Gregor, das geht so. Sub DeleteNoLink()Dim rng As Range, r As RangeOn Error Resume NextSet rng = Columns(3).SpecialCells(xlCellTypeConstants)On Error GoTo 0If Not rng Is Nothing Then For Each r In rng If r.Hyperlinks.Count = 0 Then r.ClearContents NextEnd IfEnd Sub Gruß Sepp Anzeige