Office: Excel schneidet 0 weg !!

ich möchte im Excel folgendes machen.
Ich habe eine Spalte wo der derzeitige Inhalt wie folgt aussieht.
0521/12554 oder 0511-212111 oder 02A40-02112.
Ich möchte aber die Zeichen /, - ... entfernen. wenn ich nun duch Suchen und Ersetzen z.B das / entferne, wird auch gleichzeitig die 0 entfernt. Habe die Spalte berits al Text konvertiert. Hilft aber trotzdem nichts. Wer kann helfen ??

 

Hallo!

Wenn deine Nummern nicht länger als 15 Ziffern haben, dann lohnt sich ein Blick auf diese Seite.
Aber noch schneller und einfacher ist die Ersetzung per Makro:

Code:

Sub NurZiffern()
Dim i As Long, j As Long, A As Variant
  A = Selection
  With CreateObject("vbscript.regexp")
    .Pattern = "\D"
    .Global = True
    For j = 1 To UBound(A, 2)
      For i = 1 To UBound(A, 1)
        If A(i, j) <> "" Then A(i, j) = .Replace(A(i, j), "")
      Next i
    Next j
  End With
Selection = A
End Sub

Einfach die entsprechenden Zellen markieren und den Code drüber laufen lassen. Er entfernt ALLES und lässt NUR die Ziffern übrig.

 

Und wie gebe ich den Code in die Spalte ein ??

 

Hallo!

Öffne aus deiner Tabelle heraus mit Alt+F11 den VBA-Editor.
Wähle dort Menü Einfügen > Modul.
Kopiere den Code ins Codefenster rechts.
Zurück in der Tabelle markierst du die entsprechenden Zellen, drückst Alt+F8 und führst das Makro aus.
Fertig!

 

Hallo,

wenn ich im Excel bin und ALT + F11drücke passiert nix !!

 

Hallo!

Dann hat dein Excel 'ne Macke!
Versuch's dann mal so:
Rechtsklicke den Tabellenreiter des entsprechenden Blatts und wähle "Code anzeigen".
Nun den Code ins Codefenster kopieren und weiter wie oben schon beschrieben.