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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen