Hallo Mark,
habe Deinen Vorschlag in ein vorhandenes Makro eingebaut, aber dann hängt sich dieses
in der Zeile ----Zahl = ActiveCell.Value * 1--- auf.
Was habe ich falsch gemacht?
Danke
Peter
Sub Number()
azz = ActiveCell.Row
azs = ActiveCell.Column
zl = Range("A:M").Find("*", searchdirection:=xlPrevious).Row
Range("C1:M" & zl).Select
Selection.NumberFormat = "0"
Spalten = Selection.Columns.Count
Zeilen = Selection.Rows.Count
For Z = 1 To Zeilen
For i = 1 To Spalten
Zahl = ActiveCell.Value * 1
ActiveCell.Value = Zahl
ActiveCell.Offset(0, 1).Activate
Next i
azz = azz + 1
Cells(azz, azs).Activate
Next Z
Selection.NumberFormat = "0.00"
MsgBox ("Konvertierung abgeschlossen!")
End Sub