Replace i VBA ?

Eks.

Cells.Replace What:=\"FLEMMING\", Replacement:=\"ROMME\", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

Skulle måske lige fortælle, at det er en streng.
Jeg vil udskifte mellemrum med ingen ting ...

F.eks. i VB
str = Replace(\"vi su al ba si c\", \" \", \"\")
Output fra str er så : visualbasic

OK Replace af mellemrum i en streng.....hmmm
Umiddelbart nej - Der finde Trim, LTrim og RTrim, hvor LTrim fjerner mellemrum i starten, RTrim gør det i slutningen og Trim gør det i begge ender, men ind i mellem !!!

Undskyld - jo den er der :-)

str = Replace(\"v i s u al bas i c\", \" \", \"\")

Det virker uden problemer hos mig i Excel2000.

//Flemming

Den findes ikke i Excel 97...
Andre der forslag :o) ???

Opdater til Excel2000 !!!! hmmm
Jo, du kan lave en lille \"maskine\", som søger strengen igennem, og ændre/sletter win-ansi tegnet for mellemrum....
Jeg har lavet noget ligende engang!! Men jeg er langt hjemmefra lige nu.

Jeg har lavet en funktion, der fjerner alle mellemrum fra en streng. Den er lavet i Excel 95, men burde også fungere i Excel 97:

Sub TestRemoveSpaces()
  MsgBox (RemoveSpaces(\"v i s u al bas i c\"))
End Sub


Function RemoveSpaces(Str As String)
  Dim StrLen As Integer
  Dim CurPos As Integer

  StrLen = Len(Str)
  CurPos = 1

  While CurPos <= StrLen
    If Mid(Str, CurPos, 1) = \" \" Then
      Str = Mid(Str, 1, CurPos - 1) & Mid(Str, CurPos + 1, StrLen - CurPos)
      StrLen = StrLen - 1
      CurPos = CurPos - 1
    End If

    CurPos = CurPos + 1

  Wend

  RemoveSpaces = Str

End Function

Den kan bruges, tak :o)

Jep det var noget alla det jeg mente :-)