Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

chinesiches zeichen per VBA aus Text entfernen

chinesiches zeichen per VBA aus Text entfernen
Franz
Hallo Kollegen,
kann mit jemand sagen ob es möglich ist per VBA aus mehreren Zellen bestimmte Zeichen zu löschen.
Beispiel:
ich habe artikelbeschreibungen die wie folgt aussehen
右阀座C12045.6.1.25
压力表安装板BCW46D.6.10-4
管夹体SP322-PP DP-AS
测压管HFJ2-P3-3-P-800 Stauff
压力表NG063 G1/4B 40MPa Stauff
胶管4SH20-DKOS(16)-DKOS45(16)-450Q/SY1102
胶管2SN25-DKOL-DKOL90-950Q/SY1102
nun möchte ich mir die Arbeit sparen bei mehr als 5000 zeilen die Chinesichen zeíchen per hand zu entfernen.
das Ergebnis müßte dann so aussehen
C12045.6.1.25
BCW46D.6.10-4
usw.
vielen Dank für eine Antwort.
LG
Franzel

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Wechseln()
09.09.2011 07:55:42
Matthias
Hallo
in A1
右阀座C12045.6.1.25
in B1
=WECHSELN(A1;"右阀座";"")
Gruß Matthias
noch eine Variante ...
09.09.2011 08:24:07
Matthias
Hallo Franz
Sieht ja so aus, als stünden die chinesischen Zeichen immer links.
Dann könntest Du per Hilfsspalten die Zeichen austauschen.
Hier mal ein Bsp.
https://www.herber.de/bbs/user/76532.xls
Die Formeln aus Spalte C musst Du nur eben soweit nach rechts ziehen, bis keine 63 mehr erscheint.
Gruß Matthias
AW: chinesiches zeichen per VBA aus Text entfernen
09.09.2011 08:59:36
bst
Morgen auch,
in VBA könntest Du das z.B. so machen.
HTH, Bernd
--
Option Explicit

Sub x()
    Dim i As Long
    
    For i = 1 To IIf(Len(Cells(Rows.Count, 1)), Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row)
        Cells(i, 2).Value = OnlyAscii(Cells(i, 1).Value)
    Next
End Sub

Function OnlyAscii(ByVal s As String) As String
    Dim i As Long, c As String
    
    For i = 1 To Len(s)
        c = Mid(s, i, 1)
        If AscW(c) > 0 And AscW(c) < 256 Then OnlyAscii = OnlyAscii & c
    Next
End Function


Anzeige
AW: chinesiches zeichen per VBA aus Text entfernen
09.09.2011 09:38:15
Franz
Hallo an alle :-)
alle Varianten Funktionieren hervoragend.
Aber die VBA Variante ist die für mich am Praktikabelste.
Also danke euche allen.
Ich schicke Euch eine Virtuelle Flasche Bier. Igr habt mir mein WE gerettet.
gruß
Franzel

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige