title image


Smiley Hilfe ohne Bezahlung...
Hi nodar,



ich hab dir da mal was gebastelt. In ein Modul kopieren und einfach starten, der Bereich wird abgefragt der umgewandelt werden soll. Mit dieser Prozedur werden alle Zeichen die nicht im ASCII-Bereich von 32 bis 128 liegen gnadenlos gekillt! Also Tabelle vorher sichern:





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

        x = Len(Wert)                       'Anzahl Zeichen ermitteln

        For k = 1 To x

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

            AscWert = AscW(Z)           'AscUnicodewert ermitteln

            If AscWert >= 32 And AscWert <= 128 Then 'in diesem Bereich befinden sich die normalen Zeichen

            ZKette = ZKette & Z

            End If

        Next k

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

    Next j

Next i

Bereich.Select

End Sub

 Code eingefügt mit Syntaxhighlighter 1.16



Ich hoffe es hilft...



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: