Slette alt farvet tekst/tal

Ønsker du at slette indhold i celler med rød skrift, eller hvordan skal det forstås?
Du er velkommen til at sende arket til mig på mail:
be_nicesnabel@live.dk
/Be_Nice

i en af kolonnerne står der tidspunkt(læs f.eks. l 11.20 eller kl 12.00) registreret med rødt hele vejen ned.
Kan man slette teksten kun. Bagefter tidspunktet står der nogetr andet som skal bibeholdes

Kopier hele kolonnen over i Word og lav en søg og erstat på farve. Erstat med ingenting og kopier tilbage.

Skal lige forstå det korrekt - i en kolonne (f.eks. A) står der flg.:
11.20 test
12.00 glad
11.19 fejl
Dette vil du gerne have ændret til at stå som følger:
test
glad
fejl
Og er det alle tidspunkter du vil have slettet, eller er det kun udvalgte?
/Be_Nice

be nice - rigtigt forstået. alle tidspunkter slettet.

tjp - jeg prøver det lige

Du kan gøre dette ved hjælp af en ekstra hjælpekolonne:
--> Skriv flg. formel i en tom kolonne (f.eks. B)
--> =MIDT(A1;6;100)
--> Kopiér formlen fra B1 og ned
100 angiver det antal tegn du ønsker returneret efter at dine tidspunkter er slettet.
/Be_Nice

BE_NICE - you got mail :-)

Jeg kan ikke åbne/gemme den fil du har vedhæftet - vil du prøve at sende den igen?
/Be_Nice

Jeg har fået filen gemt/åbnet (jeg videresendte den til en anden mail)
Kan du give lidt flere info om hvad du gerne vil have gjort ved filen?
/Be_Nice

alle farvede tal/ord skal fjernes.

Har du prøvet min vejledning (kl. 12.09.06)?
/Be_Nice

Med dit eksempel kan du bruge flg. formel i B2:
=MIDT(A2;21;100)
Jeg går ud fra at indhold i A2 er en fejl, eller kan der godt stå flere tidsrum i samme celle?
I så fald er du nødt til at have flere hjælpeceller.
/Be_Nice

Der står op til 5 tidsrum

Det nemmeste vil være at følge tjp og kopiere kolonnen med dine tidsrum over i Word og erstatte "farvekoden" med ingenting, hvorefter du kopierer kolonnen tilbage i Excel igen.
Sig til hvis du ikke kan få det hen.
/Be_Nice

Marker de celler/ område, der skal tjekkes, kør så makroen.
Ps. tag kopi først, inden du tester.

Koden skal i et almindelig modul.

Public Sub Fjern_Farvet_Tekst()
    Dim C As Range, Ny As String, I As Integer
    For Each C In Selection.Cells
        Ny = ""
        For I = 1 To Len(C)
            If C.Characters(I, 1).Font.ColorIndex = xlAutomatic Then
                Ny = Ny & Mid(C, I, 1)
            End If
        Next
        C.Value = Ny
        C.Font.ColorIndex = xlAutomatic
    Next
End Sub

Tak for svar. Uanset hvilken løsning så funker det.

smid nogle svar

/Be_Nice

Svar. :-)

;-))

herligt, Tak for hjælpen. Bruger Word metoden!