ASCII-Tabelle Unter Trunkation versteht man das Abschneiden eines Textes Folgende VBA Funktion prüft einen Text auf das erste Aufkommen von Sonderzeichen und gibt einen Textteil zurück: Public Function Trunkation(strEingabe As String) Dim i As Integer Dim intASCII As Integer Dim strRueckgabe As String ' " " = 32, 45 = "-" , 95 = "_", 59 = ";", 44 = "," i = 1 If Len(strEingabe) <> 0 Then Do While i <= Len(strEingabe) intASCII = Asc(Mid(strEingabe, i, 1)) Debug.Print intASCII If intASCII = 32 Or intASCII = 44 Or intASCII = 45 Or _ intASCII = 59 Or intASCII = 95 Then strRueckgabe = Left(strEingabe, i - 1) Exit Do End If i = i + 1 Loop End If Trun...