Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen ohne Hyperlink löschen?

Zeilen ohne Hyperlink löschen?
Selma
Hallo Leute,
wie kann ich per VBA alle Zeilen löschen, die kein Hyperlink haben?
Besten Dank im Voraus!
Viele Grüße,
Selma

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

Betreff
Benutzer
Anzeige
AW: Zeilen ohne Hyperlink löschen?
06.07.2010 16:25:51
Rudi
Hallo,
Sub Zeilen_Ohne_Hyperlink_Loeschen()
Dim hl As Hyperlink, rngHL As Range, rngDel As Range, c As Range
For Each hl In ActiveSheet.Hyperlinks
If rngHL Is Nothing Then
Set rngHL = hl.Range.EntireRow
Else
Set rngHL = Union(rngHL, hl.Range.EntireRow)
End If
Next
If Not rngHL Is Nothing Then
For Each c In ActiveSheet.UsedRange.Columns(1).Cells
If Application.Intersect(c, rngHL) Is Nothing Then
If rngDel Is Nothing Then
Set rngDel = c.EntireRow
Else
Set rngDel = Union(rngDel, c.EntireRow)
End If
End If
Next
rngDel.EntireRow.Delete
End If
End Sub

Gruß
Rudi
Anzeige
AW: Zeilen ohne Hyperlink löschen?
06.07.2010 16:38:08
Selma
Hallo Rudi,
vielen, vielen Dank!
VG,
Selma

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige