Sortering ud fra start tekst

Sortere eller slette - hvad mener du???

Hej  Erik

Beklager min dårlige formulering jeg vil gerne slette alle celler, som ikke indholder en specifik tekst start.

Mvh.

Det ligner at du vil beholde celler med tal - kan du ikke lave en funktion der tester om det er et tal?
F.eks. iferror(cellen x 1;"0") og så slette alle dem som giver nul?

Hej Kim

Desværre kan jeg ikke rigtig bruge din løsning, da cellerne indeholder både tekst og tal.  Derfor vil det være en fordel hvis en evt. VBA-kode kan klare sagen, da teksten i cellerne er med til at identificere numrene. :-)

Mvh.

Måske kan denne makro bruges:

Sub Slet()
Dim test As String
For x = 1 To 20 ' 20 er lig antal linier der skal testes
test = Left(Cells(x, 1), 2)
Select Case test
Case "A1", "A2", "A4", "A6", "A7"
Cells(x, 1).ClearContents
Case "A3", "A5"
End Select
Next
End Sub

Hej Jens

Tak for dit forsøg, men så vidt jeg kan se tager du udgangspunkt i cellernes placering i arket. Men som jeg skriver i den første del af mit indlæg, så er der ikke lige langt mellem de celler der skal slettes.
Jeg har forøvrigt fundet en alternativ = meget lang løsning uden om problemet :-/

Tak for de gode forsøg!

Min makro tager ikke udgangspunkt i cellernes placering, men tester de to første tegn i cellen og det bestemmer om cellen skal slettes eller ikke

Hej Jens

Beklager, jeg kan desværre ikke få dit forslag til at virke, hvilket jeg antager bunder i min uvidenhed på området.

Mvh.

Ok, jeg laver lige en mere detaljeret beskrivelse. Højreklik på fanebladet, vælg vis koder og indsæt makroen der. Makroen vil så kun virke på den valgte side. Indsæt en knap på siden og tildel den makroen. Der er i makroen antaget, at dine data står i kolonne A række 1 til 20. Hvis der er et fast andet antal rækker skal du rette i den linie der hedder For x = 1 to 20. Hvis du har et variabelt antal rækker vil det være bedre at bruge nedenstående makro, som selv checker antallet af linier:

Sub Slet()
Dim test As String
Dim LastRow As Integer
LastRow = Range("A65536").End(xlUp).Row
For x = 1 To LastRow
test = Left(Cells(x, 1), 2)
Select Case test
Case "A1", "A2", "A4", "A6", "A7"
Cells(x, 1).ClearContents
Case "A3", "A5"
End Select
Next
End Sub