|
soo habs lösen können xD
Sub Komma()
Dim i As Integer
Dim intp As String
Const erste_Zeile = 2
letztezeile = Cells(Rows.Count, 6).End(xlUp).Row
For i = erste_Zeile To letztezeile
Cells(i, 6) = Round(Cells(i, 6), 2)
Cells(i, 7) = Round(Cells(i, 7), 2)
Cells(i, 8) = Round(Cells(i, 8), 2)
intp = Format(Cells(i, 10), "hh:mm")
Cells(i, 10).Value = intp
Next i
End Sub
|