Excel - vybrat buňky s hypertextovým odkazem

[pikaso.andreas]

Ahoj, mám excel soubor, kde mám jeden sloupec a mnoho řádků, ale potřebuji vybrat či vyfiltrovat jen buňky které jsou HTTP, jako odkazy na web. Ostatní buňky kde je jen text potřebuji odstranit. Procházím návody ale asi nevím jak se zeptat strýčka googla.

Děkuji
Ondra

[elninoslov]

Asi jedine makrom:

Kód: Vybrat vše

Sub Cudlicek()
Dim Oblast As Range, Bunka As Range, Zmaz As Range, Riadkov As Long
    With ThisWorkbook.Worksheets("Hárok1")
        Riadkov = .Cells(Rows.Count, "A").End(xlUp).Row - 1
        Set Oblast = .Cells(2, "A").Resize(Riadkov)
        For Each Bunka In Oblast.Cells
            If Bunka.Hyperlinks.Count = 0 Then
                If Zmaz Is Nothing Then Set Zmaz = Bunka Else Set Zmaz = Union(Zmaz, Bunka)
            End If
        Next Bunka
    End With
    If Not Zmaz Is Nothing Then Zmaz.Delete Shift:=xlUp
End Sub

[pikaso.andreas]

Děkuji moc. Na první dobrou super. Skvělé. Klaním se.