title image


Smiley Re: In einem Feld einer Tab. 2 Leerzeichen durch 1 Leerzeichen ersetzen
Hallo Peter,Da Du VBA benennst, denke ich mal es geht um eine Loesung fuer Excel.Folgendes Macro erledigt dieses:Sub JustOneBlank() Dim Cell As Range Dim strIn As String Dim intI As Integer For Each Cell In Selection strIn = Cell.Value intI = InStr(strIn, " ") Do While intI > 0 strIn = Application.WorksheetFunction.Substitute(strIn, " ", " ") intI = InStr(strIn, " ") Loop Cell.Value = strIn Next CellEnd SubViele GruesseNorbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: