Makro begrenzen
09.02.2017 13:50:08
Maris
ich habe hier ein Makro welches ich nur auf einen bestimmten Bereich in meinem Tabellenblatt anwenden will. Es soll M2:T1000 leerzeichen löschen und bestimmte Formatierungen herstellen. Kann das jemand anpassen?
Sub clear()
Dim R As Range
Cells.Replace What:=Chr(226) & Chr(130) & Chr(172), _
Replacement:="", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
For Each R In Cells.SpecialCells(xlCellTypeConstants)
R.NumberFormat = "general"
If IsNumeric(R.Text) Then R.Value = R.Value * 1
Next
End Sub
Gruß, Maris
Anzeige