Hyperlink entfernen automatisch
18.08.2004 16:10:21
Danikowski
folgendes Modul löscht alle Hyperlinks in Spalte F von Zeile 3-x
Sub HyperWeg()
Dim i%
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row 'ab 3. Zeile?
Cells(i, 6).FormulaR1C1 = "Selection.Hyperlinks.Delete"
Next
End Sub
Das funktioniert auch sehr gut, nur steht danach in jeder Zelle
Selection.Hyperlinks.Delete
wie bekomm ich das raus?
Anzeige