title image


Smiley Re: JUHU !
Hi Ralf,



hier noch der Code der auch die deutschen Umlaute ä, ö, ü, Ä, Ö, Ü, und ß berücksichtigt d.h. nicht löscht:





Sub sonderzeichen_Filtern()

'Filtert alles raus was sich nicht im Ascii-Bereich 32-128 befindet

Dim Bereich As Range

Dim SP As Long, ZL As Long, i As Long, j As Long, k As Long, x As Long, AscWert As Long

Dim ZKette As String, Z As String, Wert As String



On Error Resume Next

Set Bereich = Application.InputBox("Markieren Sie den Bereich den Sie umwandeln wollen", Type:=8)



SP = Bereich.Columns.Count 'Anzahl Spalten im Bereich

ZL = Bereich.Rows.Count    'Anzahl Zeilen im Bereich



For i = 1 To SP

    For j = 1 To ZL

        ZKette = ""

        Wert = Bereich.Cells(j, i).Value    'Werte auslesen

        If Not Wert = "" Then               'Wenn die Zelle nicht leer ist

            x = Len(Wert)                   'Anzahl Zeichen ermitteln

            For k = 1 To x

                Z = Mid(Wert, k, 1)         'Zeichenweise auslesen

                AscWert = AscW(Z)           'AscUnicodewert ermitteln

                'in diesem Bereich befinden sich die normalen Zeichen 32-128

                '196 = Ä, 214 = Ö, 220 = Ü, 228 = ä, 246 = ö, 252 = ü, 223 = ß

                If (AscWert >= 32 And AscWert <= 128) Or AscWert = 196 _

                Or AscWert = 214 Or AscWert = 220 Or AscWert = 223 _

                Or AscWert = 228 Or AscWert = 246 Or AscWert = 252 Then

                ZKette = ZKette & Z

                End If

            Next k

        Bereich.Cells(j, i).Value = ZKette

        End If

    Next j

Next i

Bereich.Select

End Sub



 Code eingefügt mit Syntaxhighlighter 1.16



CU Klaus

Viele Grüsse

aus dem sonnigen

Markgräflerland!!!

Wissen ist Macht, aber Nix wissen macht auch Nichts!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: