IF sætning og lidt til

Brug f.eks. denne macro - den fjerner de sidste 3 tegn i alle cellerne - det ligner det at du har brug for

Dim strStarttext As String
Dim strEndtext As String

    Dim i As Long
    Dim j As Long
   
    For i = 1 To 4 '(række 1 til 4 - ret selv til)
      For j = 1 To 40 '(kolonne A (=1) til AN (=40) - ret selv til)
        If Cells(i, j).Value > 0 Then
          strStarttext = Cells(i, j).Value
          If Len(strStarttext) > 4 Then
            strEndtext = Mid(strStarttext, 1, Len(strStarttext) - 4)
          End If
          Cells(i, j).Value = strEndtext
        End If
      Next j
    Next i
    MsgBox "slut"

Det er tæt på super... hvordan laver jeg det om så det ikke automatisk er de øverste linier, men i de celler som jeg har markeret?

Sub Makro1()

    Selection.Replace What:="XXX", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="YYY", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Noget mere elegant fra kabbak (og "snyd" - har du ikke optaget en macro og tilpasset ;o)

Men hvad med helt at droppe macro - marker området, brug søg-og-erstat på "XXX" og "" - for det er jo i virkeligheden det macroen gør...

Det var bare mig der ikke så klart og startede med koderiet før jeg tænkte mig om

Tjo... det kunne man måske godt, men det er fordi jeg skal have det ind som en del af noget større :-) den skal både soterer nogele data, editerer i dem og derefter lave et vlookup. men jeg kan finde ud af de to andre dele så jeg mangler lidt hkælp til delen i midten :-)

ok. er spørgsmålet besvaret nu eller?

Nej egentligt ikke, jeg ved ikke helt hvordan det skal fundere? Alternativt ville det været fint hvis der bare var en som ved hvordan man sletter de sidste 4 i en string? jeg har forsøgt med Right(4) eller noget i den retning ,men det virker sgu ikke den sletter så vidt ejg kan se noget helt tilfældigt :-) - ikke helt tilfældigt men ikke bare de sidste 4...

det har jeg vist dig - det er netop det jeg gør i mit svar - sletter de sidste 4 tegn i en string

strEndtext = Mid(strStarttext, 1, Len(strStarttext) - 4)

slå op i hjælpen på

len
left
rigth
trim
Ltrim
Rtrim
mid
instr
instrrev

Med disse kommandoer kan du lave alle de manipulationer med strings du kan få brug for

Super mange tak!