23. april 2007 - 10:08Der er
5 kommentarer og 2 løsninger
Søg/Erstat ved brug af *
Jeg har lavet nedenstående makro til at erstatte <*> med "". Med andre ord ønsker jeg at fjerne html-strenge og erstatte dem med ingenting.
Men min makro får ikke alt med? Og hvis jeg så stiller mig i det felt, som ikke fik alle <*> fjernet og kører makroe på kun det felt...så forsvinder det...`?
Sub Makro3() Selection.Replace What:=Chr(60) & "*" & Chr(62), Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub
Denne kan måske kapere dine lange tekststrenge (marker og kør)
Sub FjernTXT() x = InputBox("Hvad skal slettes : ") For Each c In Selection c.Value = Application.WorksheetFunction.Substitute(c.Value, x, "") Next End Sub
jeg har endnu ikke afprøvet koden, men jeg lader den ligge til næste gang problemet opstår. tak for hjælpen.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
