Bereich markieren u. Zeichen daraus entfernen

Guten Abend, liebe Excel-Gemeinde !
Irgendwie stehe ich auf dem Schlauch. Hoffentlich kann mir jemand helfen...
Ich bekomme aus unterschiedlichen Quellen Materialnummern im Excelformat
für die Erstellung von Versandaufträgen zugeschickt.
Mal haut der Absender Leerzeichen dazwischen, mal einen Schrägstrich, mal einen Querstrich etc.
Ich brauche aber die reine, zusammenhängende Zahl in einer Zelle, um sie in das Auftragsprogramm kopieren zu können. Wer will schon die ganzen Zahlen manuell abtippen ?
Über ein aufgezeichnetes Makro unter Verwendung der "Wechseln"- Funktion hatte ich schon eine
Zwischenlösung durch Hinüberkopieren auf ein separates Formatierungsblatt, in dem das Makro
hinterlegt war.
Ich suche jedoch eine Möglichkeit, den Bereich mit den Materialnummern in der
Originaldatei variabel per Mausklick zu markieren und das Formatierungsmakro (z.B. aus der "persönl.xls") jeweils in diesem markierten Bereich ausführen zu lassen.
Geht wohl irgendwie mit "Selection" und ist sicherlich für ausgeruhte Profis eine Lachnummer.
Aber ein armer, alter, von einem harten, stressigen Bürotag übermüdeter VBA-Anfänger würde sich trotzdem über Hinweise freuen :-)
Viele Grüße
Wolfgang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Sonderzeichen_wech() Application.ScreenUpdating = False Dim z As Range For Each z In Selection z.Value = Replace(z.Value, " ", "") 'Leerzeichen z.Value = Replace(z.Value, "/", "") 'Schräger z.Value = Replace(z.Value, "-", "") 'Bindestrich z.Value = Replace(z.Value, "_", "") 'Unterstrich z.Value = Replace(z.Value, ",", "") 'Komma z.Value = Replace(z.Value, ".", "") 'Punkt Next Application.ScreenUpdating = True End Sub

Sub Entferne_Sonderzeichen_aus_Zellinhalt() Dim Zelle As Range, sText As String, iIndex As Long If MsgBox("Im selektierten Zellbereich in den Zellen die nicht " & _ "nummerischen Zeichen entfernen?", vbQuestion + vbOKCancel, _ "Ziffernfolge bereinigen") = vbOK Then Application.ScreenUpdating = False For Each Zelle In Selection.Cells sText = "" For iIndex = 1 To Len(Zelle.Text) Select Case Asc(Mid(Zelle.Text, iIndex, 1)) Case Asc(0) To Asc(9) sText = sText & Mid(Zelle.Text, iIndex, 1) Case Else End Select Next Zelle.Value = sText ' oder ' Zelle.Value = Val(sText) Next Application.ScreenUpdating = True End If End Sub

Beliebteste Forumthreads (12 Monate)

Bereich markieren u. Zeichen daraus entfernen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bereich markieren u. Zeichen daraus entfernen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread