"udrensning" af data i regneark

Du kan bruge et avanceret filter til at kopiere de udvalgte data til et andet område, og herefter slette de oprindelige data.

Data->Filter->Avanceret filter

Det var lidt det jeg ville undgå.....altså en automastisk funktion der gjorde det!

Hvad mener du med en automatisk funktion?

Det behøver ikke være det avancerede filter - et autofilter kan også klare det.
Marker hele området med data
Vælg Data->Filter->Autofilter
Vælg de ønskede initialer i kolonnen med initialer
Du har nu den liste du ønsker - kopier den evt. til et andet ark, så slettes alle øvrige data

Mere "automatisk" bliver det vist ikke!

en makro evt?  men den skal jo vide hvilke data der skal beholdes!

Hvor lang tid tror du det tager at lave en makro - sammenholdt med ovennævnte?

Prøv at sende et uddrag af dit regneark til: pb@supertekst-it.dk

forslag:

Rem Koden indlægges i det ark, hvor filtrering ønskes
Dim InitListe As Variant
Sub starFilter()                                          'VBA begynder her - evt. tilknyttes knap

Rem Liste over initialer, der IKKE skal slettes
Rem ===========================================
    InitListe = Array("AHS", "HCA", "IMP", "JRK", "LNL", "MPR", "OGK", "SGJ")  '<-----Tilpasses
    udførFiltrering
End Sub
Private Sub udførFiltrering()
Dim antalRæk
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = antalRæk To 2 Step -1
        If Cells(ræk, 1) <> "" Then
            If InitBevares(Cells(ræk, 1)) = False Then
                Rows(ræk).Delete
            End If
        End If
    Next ræk
End Sub
Private Function InitBevares(init)
    For f = 0 To UBound(InitListe)
        If init = InitListe(f) Then
            InitBevares = True
            Exit Function
        End If
    Next f
    InitBevares = False
End Function

Er der tale om at du vil bibeholde "kendte intialer" eller er der tale om, at bare celleindholdet er 3 karakterer, så er det en initial som ikke skal slettes ????

Du får et svar..

tak for hjælpen