Function CleanInput(value) If IsNull(value) Then CleanInput = "" Else value = Trim(value) If IsNumeric(value) Then CleanInput = value ' Als Zahl zurückgeben Else value = Replace(value, "<", "<") value = Replace(value, ">", ">") value = Replace(value, """", "") value = Replace(value, "'", "'") CleanInput = value End If End If End Function
Short Track - Ostk03 - W 1000 M Qual. + M 1500 M Qf/Sf/Finals + W 3000 Relay Semifinals - Termine