|
Guten Tag,
ich benötige Hilfe von den Fachleuten.
Ich möchte einen Markierten Bereich Säubern, (eventuell, auch gleich Glätten)
Der Grund das ich den Bereich Säubern möchte ist das in der Bearbeitungsleiste ein Apostroph vor der Zahl steht [ ´0456] ich möchte das es so ist [0456].
Allerdings habe ich in dem Bereich Nummern die teilweise mit einer 0 beginnen, diese 0 soll auch bleiben.
Wenn ich das mit der Formel Säubern mache funktioniert das aber ich benötige dann immer eine Hilfs Spalte, und muss dann die Werte Kopieren das möchte ich umgehen.
Und mit einem Schritt die Werte in der Zelle Säubern, so das auch der Wert in der Zelle steht und keine Formel.
Muss dafür eventuell die Formatierung der Zelle geändert werden? und kann man das mit in das Makro einbauen?
Mein Versuch, aber hier wird die 0 entfernt, was muss ich ändern?
Sub BereichSäubern()
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Value = _
Application.WorksheetFunction.Clean(Zelle.Value)
Next Zelle
End Sub
Vielen Dank im voraus für eure Unterstützung
|