Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Sonderzeichen entfernen | Herbers Excel-Forum


Betrifft: Sonderzeichen entfernen von: Gegga
Geschrieben am: 21.01.2010 08:11:20

Guten Morgen zusammen

Folgendes Problem

Für einen Kunden muss ich Artikelaufkleber erstellen. Würde das gerne über Eingabemaske in Excel erstelln, das ist nicht das eigentliche Problem.

Auf dem Aufkleber müssen Barcodes enthalten sein (Schriftsatz CODE128 AUTO liegt vor)
Die Artikelnummer muss in Barcode aufgeschlüsselt werden ohne Sonderzeichen (hier in meinem Fall sind es "-" Minuszeichen)
Die Artikelnr. lautet z.B. 123456-7890-000 (muss in dieser Form also mit Minuszeichen ebenfalls auf dem Aufkleber sein). Diese Zahl soll nun zusätzlich in einen Barcode ohne Minuszeichen ausgegeben werden (1234567890000) Die Minuszeichen können an verschiedenen Stellen sein.

Wie kann ich diese entfernen?

Ich dachte mir das so:
Eingabe in Zelle A1 - 123456-7890-000
Ausgabe in Zelle B1 - 1234567890000

Vielen Dank für eure Hilfe

Greetz Gegga

  

Betrifft: AW: Sonderzeichen entfernen von: Hajo_Zi
Geschrieben am: 21.01.2010 08:13:34

hallo Gega,

Finktion Wechseln() oder Application.WorksheetFunction.Substitute()

GrußformelHomepage


  

Betrifft: AW: Sonderzeichen entfernen von: Gegga
Geschrieben am: 21.01.2010 08:27:27

Moin Hajo

Excel Hilfe gibt aus:

Function Substitute(Arg1 As String, Arg2 As String, Arg3 As String, [Arg4]) As String
Element von Excel.WorksheetFunction

und wie wende ich das jetzt in meinem Fall an?

Danke nochmal


  

Betrifft: AW: Sonderzeichen entfernen von: Hajo_Zi
Geschrieben am: 21.01.2010 08:38:18

Hallo Gegga,

keine Ahnung ich sehe Deinen Code nicht.
Arg1 der Wert
Arf2 das was ersetzt werden soll "-"
arg2 durch was ""

Gruß Hajo


  

Betrifft: AW: Sonderzeichen entfernen von: Gegga
Geschrieben am: 21.01.2010 08:42:00

Hallo Hajo

ICH habe noch keinen Code, deswegen bin ich ja hier!!!
Ich habe vor mir n Jungfräuliches Excel Sheet

Zellen habe ich angegeben wo die Daten enthalten sind

Gru?


  

Betrifft: AW: Sonderzeichen entfernen von: Gegga
Geschrieben am: 21.01.2010 08:33:11

Als Funktion

WECHSELN(Text;Alter_Text;Neuer_Text;Ntes_Auftreten)

Alter Text leuchtet noch ein, Zelle A1
Neuer Text? Wie soll das lauten das er SELBER die Minuszeichen entfernt? Eine zweite Eingabe per Hand ohne Minuszeichen ist NICHT ERWÜNSCHT!!!

Dnke für die Hilfe


  

Betrifft: AW: Sonderzeichen entfernen noch offen!!! von: Gegga
Geschrieben am: 21.01.2010 08:33:39




  

Betrifft: AW: Sonderzeichen entfernen noch offen!!! von: Josef Ehrensberger
Geschrieben am: 21.01.2010 08:37:01

Hallo Gegga,

=WECHSELN(A1;"-","")

Gruß Sepp



  

Betrifft: DANKE!!!! von: Gegga
Geschrieben am: 21.01.2010 08:42:52

Sepp? DANKE!!!

Kurz, knackig, verwendbar...


  

Betrifft: AW: Sonderzeichen entfernen von: welga
Geschrieben am: 21.01.2010 08:41:32

Hallo,

~f~=wechseln(a1;"-";"")

Gruß
welga


  

Betrifft: AW: Sonderzeichen entfernen von: Gegga
Geschrieben am: 21.01.2010 08:44:12

Auch dir Welga, vielen Dank...

manche Schreiben da lieber 1000 Zeichen mit denen ich als Excel Dummie eh nix anfangen kann...


  

Betrifft: AW: Sonderzeichen entfernen von: welga
Geschrieben am: 21.01.2010 08:41:53

Hallo,

=wechseln(a1;"-";"")

Gruß
welga


 

Beiträge aus den Excel-Beispielen zum Thema "Sonderzeichen entfernen"

In einer UserForm-TextBox die Eingabe von Sonderzeichen verhindern
Einfügen eines Sonderzeichens in einer UserForm-TextBox
Fehler entfernen
Alle leeren Zeilen und Spalten entfernen
Zeilenumbrüche im aktiven Blatt entfernen
Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen
In mehrere Spalten doppelte Inhalte entfernen
Leerzeichen zwischen Zeichen- und Zahlenfolge entfernen
Entfernen der letzten beiden Zeichen in Listenelementen
In jeder Zeile einer Textdatei 1. und letztes Zeichen entfernen
Buchstaben aus Textdatei entfernen und neu speichern
Alle Hyperlinks eines Arbeitsblattes entfernen
Doppel aus Liste entfernen