title image


Smiley Re: Komma durch Pkt ersetzten in Tab (VBA)????
Anbei eine Funktion, die in einem übergebenen String alle Zeichen oder Zeichenketten durch ein anderes Zeichen oder eine andere Zeichenkette ersetzt:Public Function fct_StrReplace(strTextTmp As String, strValTmp1 As String, strValTmp2 As String)'Parameter: strTextTmp: Zu bearbeitender Text' strValTmp1: zu ersetzende Zeichenfolge' strValTmp2: einzusetzende Zeichenfolge'ErsteS VorkommenIf InStr(1, strTextTmp, strValTmp1) > 0 Then lngTmp01 = InStr(1, strTextTmp, strValTmp1) 'Stelle des Vorkommens auslesen strTextTmp = Left(strTextTmp, lngTmp01 - 1) & strValTmp2 & Right(strTextTmp, Len(strTextTmp) - (lngTmp01 + Len(strValTmp1) - 1)) lngTmp02 = lngTmp01 'Erstes Vorkommen merkenEnd If'Weitere VorkommenDo While InStr((lngTmp01 + Len(strValTmp2)), strTextTmp, strValTmp1) > 0 lngTmp01 = InStr((lngTmp01 + Len(strValTmp2)), strTextTmp, strValTmp1) 'Stelle des Vorkommens auslesen strTextTmp = Left(strTextTmp, lngTmp01 - 1) & strValTmp2 & Right(strTextTmp, Len(strTextTmp) - (lngTmp01 + Len(strValTmp1) - 1))Loopfct_StrReplace_01 = strTextTmpEnd FunctionGruß

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: