Excel, VBA, Rense tekst i én kolonne

Hvad er det præcist, der skal udelades (ikke slettes)? Er det alt, der indeholder strengen " DK." (mellemrum først DK med stort og punktum til slut)? Og skal den være casesensitiv?

Hej

Ja, rækker der ikke indeholder " DK." skal slettes
Ikke case-sensitive.

Denne skal tilrettes dit konkrete behov. Så være opmærksom på arknavnet (her benyttes Ark1) og sorteringsområdet (her sorteres kun på kolonne A).

Der er en særskilt Sub til sorteringen. Kan om ønsket indgå i den anden Sub.

Sub SletRækkerUdenDK()
Dim Rk As Long
Dim Ws As Worksheet
Application.ScreenUpdating = False
Set Ws = Sheets("Ark1")
For Rk = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
With Ws.Cells(Rk, 1)
    If InStr(.Value, " DK.") = 0 Then _
    Rows(Rk).EntireRow.Delete
End With
Next Rk
Call Sortering
Application.ScreenUpdating = True
End Sub

Sub Sortering()
Dim SidsteRk As Long
SidsteRk = Range("A" & Rows.Count).End(xlUp).Row
With Worksheets("Ark1").Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("A1:A" & SidsteRk), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range("A1:A" & SidsteRk)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Hmm der mangler end End Sub i Sorterings Sub'en.

Eksempel uploadet her:

http://gratisupload.dk/f/8scdnpo5w9/

Kan naturligvis "smukkeseres" en del.

Natkatten, du er min helt.
Opret et svar, så godkender jeg straks.
Tak for hjælpen!
Jon

:-)
/natkatten