"=========================================================================================================
'Funktionsname: Austausch
Effekt: Filtern Sie alle Registerkarten, die Kutschenrendite und die Zeilenbrüche in Zeichen heraus
"=========================================================================================================
PublicFunctionReplacetrim (ByvalstrContent)
OnErrorresumeNext
Dimre
Setre = newRegexp
re.Innorecase = true
re.global = true
re.Pattern = "(" & chr (8) & "|" & chr (9) & "|" & chr (10) & "|" & chr (13) & ")"
StrContent = Re.Replace (StrContent, vbnullString)
Setre = nichts
ErsetztemTrim = strContent
Ausgangsfunktion
Endfunktion