Indien bepaalde tekst in cel, dan weghalen bepaalde tekst

[Partis]

Dag,

Ik heb een kolom met diverse websites. Nu wil ik, indien in de url "www" voorkomt het deel "http;//" en 'https://' automatisch laten weghalen. Maar als er geen www in de url staat moet de http:// en https:// wel blijven staan. Is daar een formule of macro voor te maken?
Ik heb in de bijlage een voorbeeld van wat ik bedoel.

Hartelijke groeten, Vincent

 

[JEC.]

Met replace in vba of substitute als formule

 

[edmoor]

Zoiets:

Sub VerwijderHTTP()
    For i = 3 To Range("B3").CurrentRegion.Rows.Count + 1
        If InStr(1, Cells(i, 2), "www") > 0 And InStr(1, Cells(i, 2), "http") > 0 Then
            Cells(i, 2) = Mid(Cells(i, 2), InStr(1, Cells(i, 2), "//") + 2)
        End If
    Next i
End Sub

 

[AlexCEL]

Formule voor C3:

=ALS(ISGETAL(VIND.SPEC("www";B3));SUBSTITUEREN(SUBSTITUEREN(B3;"https://";"");"http://";"");B3)

 

[JEC.]

Sub jvr()
 For Each cl In Cells(3, 2).CurrentRegion.Columns(1).Cells
    cl.Value = Mid(cl, InStr(cl, "/www") + 1)
 Next
End Sub

 

[edmoor]

Keurig! :thumb:

 

[JEC.]

Thanks!

 

[snb]

Zoek *//www
Vervang www

 

[AlexCEL]

Nieuwe formule n.a.v. inspiratie door snb:

=ALS.FOUT(VERVANGEN(B3;1;VIND.SPEC("/www";B3);"");B3)

 

[AD1957]

Met vba n.a.v. inspiratie door snb:

 Sub Vervang()
i = Range("B" & Rows.Count).End(xlUp).Row
Range("B3:B" & i).Replace "*//www", "www"
End Sub

 

[Partis]

Dank jullie allemaal voor jullie reactie. Het is me gelukt. Het werkt. Ik heb de laatste code gebruikt en geintegreerd. Fantastisch. Hier kan ik mee vooruit!!!!
Nogmaals dank!