Public Function GrossKlein(Wert As Variant) As Variant 'erstellt vom Aus- und Fortbildungszentrum Bremen, Fred Hoppe-Kiaup 'am 12.02.2008 Dim sort As String, I As Integer, temp As String, z As Integer If IsNull(Wert) Then GrossKlein = " " Exit Function End If For I = 1 To Len(Wert) 'Besonderheiten bei Umlauten und ß berücksichtigen Select Case Asc(Mid(Wert, I, 1)) Case 196 'Ä z = 65 Case 214 'Ö z = 79 Case 220 'Ü z = 85 Case 228 'ä z = 97 Case 246 'ö z = 111 Case 252 'ü z = 117 Case 223 'ß z = 115 Case Else z = Asc(Mid(Wert, I, 1)) End Select 'hexadezimale Darstellung für die Sortierung erzeugen temp = temp & Format(z, "000") Next I GrossKlein = temp End Function