Makro:Überflüssige Leerzeichen entfernen

Aus XIMES

Entfernt ein Leerzeichen am Beginn

  Function RemoveLeftBlank(was As String)
  
  If Left(was, 1) = " " Then
       RemoveLeftBlank = Right(was, Len(was) - 1)
   Else
       RemoveLeftBlank = was
   End If
  End Function

Entfernt Suchstring durch anderen String

   Function CleanStr(str As String, SuchString As String, ByeString As String) As String  'Rekursiv
       
       If SuchString = ByeString Then Stop
       If Len(SuchString) = 0 Then Stop
       
       If Len(SuchString) <= Len(ByeString) And InStr(ByeString, SuchString) Then Stop
       
       If IsError(InStr(str, SuchString)) Then
           CleanStr = str
       Else
       
           While InStr(str, SuchString) > 0
               str = Replace(str, SuchString, ByeString)
           Wend
           CleanStr = str
       End If
  
   End Function