Sub test()
zl = Range("A:M").Find("*", searchdirection:=xlPrevious).Row
Range("C1:M" & zl).Select
End Sub
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
Sub Number1()
azz = ActiveCell.Row
azs = ActiveCell.Column
'hier soll der Bereich markiert werden
zl = Range("A:M").Find("*", searchdirection:=xlPrevious).Row
Range("C2:M" & zl).Select
'hier werden die Textformate umgewandelt in Zahlen
Selection.NumberFormat = "0"
Selection.NumberFormat = "0"
Spalten = Selection.Columns.Count
Zeilen = Selection.Rows.Count
For Each zelle In Selection
zelle.Value = zelle.Value * 1
Next zelle
Selection.NumberFormat = "0.00"
MsgBox ("Konvertierung abgeschlossen!")
End Sub