Fjerne bogtaver og tal fra kollonne

Er mønstret i kolonne B altid det samme - alt DK BYNAVN99

Lande koden er altid et eller 2 bogstaver.

D HAMBORG99
DK ESBJERG99

Tallet efter BYNAVN er altid 2 tal

OK - er på vej med noget.........

AAAA AAAAAAA        DK ESBJERG22    Aaaa Aaaaaaa        Esbjerg
BBBBBB                DK ESBJERG22    Bbbbbb                Esbjerg
CCCCCCC CCCC CCCCCC  DK Skive 1234    Ccccccc Cccc Cccccc Skive
DDDDDDDDD DD        D HAMBORG12    Ddddddddd Dd        Hamborg

Koden anbringes i Ark1 i VBA - vinduet:

Dim antalRæk
Sub FjernTalMv()
Dim by, redBy
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For række = 1 To antalRæk
        Sheets(1).Cells(række, 4) = redigerKolonne(række, 1)
        by = redigerKolonne(række, 2)
        Sheets(1).Cells(række, 5) = fjernTal(by)
    Next række
   
    MsgBox ("Redigering afsluttet")
End Sub
Private Function redigerKolonne(ræk, kol)
Dim ind, red, blank As Boolean
    ind = Sheets(1).Cells(ræk, kol)
    red = ""
    blank = True
   
    For f = 1 To Len(ind)
        tegn = Mid(ind, f, 1)
        If tegn = " " Then
            red = red + tegn
            blank = True
        Else
            If blank = True Then
                tegn = UCase(tegn)
                blank = False
            Else
                tegn = LCase(tegn)
            End If
           
            red = red + tegn
        End If
    Next f
   
    redigerKolonne = red
End Function
Private Function fjernTal(ind)
Dim red, tegn, p
    red = ""
   
    p = InStr(ind, " ")
    If p > 0 Then
        ind = Mid(ind, p + 1)
    End If
   
    For f = 1 To Len(ind)
        tegn = Mid(ind, f, 1)
        If Not (tegn >= "0" And tegn <= "9") Then
            red = red + tegn
        End If
    Next f
    fjernTal = red
End Function

Uha :-)

Går jeg ind under Funktioner --> Makro

Hvad gør jeg så her?

Jeg højreklikker på ark 1 og vælger programkode, hvad så?

Ups, min række ser sådan her ud

Danmark | NIELS ERIK JENSEN | DK ESBJERG22

...eller fra Excel - arket - Alt+F11 - VBA-vinduet vises - vælg Ark1 - indsæt koden - start udførelsen med F5

..men "something rotten" 

Prøv at sende en mail til: pb@supertekst-it.dk - så sender jeg min model.

Sendt. Jeg er online igen kl. 18

Mange tak for din hjælp!

Her er koden for: (har kørt test på dit uddrag) & selv tak!
Rem Version 2
Rem =========
Dim antalRæk
Sub FjernTalMv()
Dim by, redBy
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For række = 1 To antalRæk
        Sheets(1).Cells(række, 6) = redigerKolonne(række, 2)    'Navn tages fra kolonne B - indsættes i kolonne F
        by = redigerKolonne(række, 4)                          'By tages fra kolonne D - indsættes i kolonne H
        Sheets(1).Cells(række, 8) = fjernTal(by)
    Next række
   
    MsgBox ("Redigering afsluttet")
End Sub
Private Function redigerKolonne(ræk, kol)
Dim ind, red, blank As Boolean
    ind = Sheets(1).Cells(ræk, kol)
    red = ""
    blank = True
   
    For f = 1 To Len(ind)
        tegn = Mid(ind, f, 1)
        If tegn = " " Then
            red = red + tegn
            blank = True
        Else
            If blank = True Then
                tegn = UCase(tegn)
                blank = False
            Else
                tegn = LCase(tegn)
            End If
           
            red = red + tegn
        End If
    Next f
   
    redigerKolonne = red
End Function
Private Function fjernTal(ind)
Dim red, tegn, p
    red = ""
   
    p = InStr(ind, " ")
    If p > 0 Then
        ind = Mid(ind, p + 1)
    End If
   
    For f = 1 To Len(ind)
        tegn = Mid(ind, f, 1)
        If Not (tegn >= "0" And tegn <= "9") Then
            red = red + tegn
        End If
    Next f
    fjernTal = red
End Function

Mange tusind tak, det virker bare!!!

Selv tak - en fornøjelse....