Fjerne bogtaver og tal fra kollonne II

Det hele står i kolonne A

Række 1  <option value='2598035'
Række 2      > Aalborg > Ålborg</option>
Række 6  <option value='2598036'
Række 7      > Aarhus > Århus</option>
osv

Er det ok, at resultatet skrives i Ark2?

Ja det er fint :-)

Så er her et bud:
Aktiver makroen i Ark1
======================

Dim antalRæk, ræk2
Sub behArk1()
Dim celle
    ræk2 = 1                        'startrække Ark2
   
    With ActiveSheet
        Cells(1, 1).Activate
        antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
       
        For ræk = 2 To antalRæk Step 5
            celle = .Cells(ræk, 1)
            renCelle = filtrer(celle)
           
            ActiveWorkbook.Sheets(2).Activate
            ActiveSheet.Cells(ræk2, 1) = renCelle
            ræk2 = ræk2 + 1
           
            ActiveWorkbook.Sheets(1).Activate
        Next ræk
    End With
   
    ActiveWorkbook.Sheets(2).Activate
    ActiveSheet.Columns.AutoFit
    MsgBox ("Redigering er afsluttet")
End Sub
Private Function filtrer(c)
Dim wCelle, renCelle, tegn
    renCelle = ""
    wCelle = Left(c, Len(c) - 9)
   
    For f = 1 To Len(wCelle)
        tegn = Mid(wCelle, f, 1)
        If tegn = ">" Then
            f = f + 1
        Else
            renCelle = renCelle + tegn
        End If
    Next f
    filtrer = renCelle
End Function

Det virker!!!

Mange tusind tak :-)

hov, smid et svar!

Kan jeg logge dig til at smide en kode der sørger for at alle mellemrummene er væk også?

Jeg sad også liget og testede, det kom der dette ud af.

Marker området ned data i A kolonnen, kør makroen og den skriver i B kolonnen.

Public Sub FjernUønsket()
    Dim Res() As Variant, I As Long, C As Range
    I = 0
    For Each C In Selection
        If Left(Trim(C), 2) = "> " Then
            ReDim Preserve Res(I)
            Res(I) = Trim(Replace(Replace(C.Text, "> ", ""), "</option>", ""))
            I = I + 1
        End If
    Next
    Range("B1:B" & UBound(Res) + 1) = Application.WorksheetFunction.Transpose(Res)
End Sub

Kabbak, den virker også :-)

mange tak!

...og den har fjernet mellemrum

De re rpoint til jer begge. Læg venligst et svar :-)

Du får et svar - er det mellemrum før 1. bynavn?

et svar ;-))

Tak for hjælpen. Begge svar var gode, så jeg synes det er fair at I deler æren :-)

tak for point

Ok og tak - her er tilføjelsen, der fjerner blanke

    filtrer = Trim(renCelle)                'næstsidste linie i koden


MVH