Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hyperlink entfernen automatisch

Betrifft: Hyperlink entfernen automatisch von: Danikowski
Geschrieben am: 18.08.2004 14:10:21

Also ich möchte bestimmte Hyperlinks automatisch löschen
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?
  


Betrifft: AW: Hyperlink entfernen automatisch von: Hans W. Herber
Geschrieben am: 18.08.2004 14:54:17

Hallo,

Selection ist bei der VBA-Programmierung Teufelszeugs. Wie folgt:

Sub DeleteHyperlinks()
   Range("F12:H16").Hyperlinks.Delete
End Sub


gruss hans


 

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink entfernen automatisch"