Aufrunden von Speicherkapazität
13.10.2014 14:50:20
Speicherkapazität
habe die Spalte
Gesamter physischer Speicher
511,48 MB
3.063,03 MB
4.001,15 MB
255,43 MB
503,36 MB
503,36 MB
1.909,75 MB
503,45 MB
1.909,75 MB
1.909,75 MB
Möchte das die Speicherkapazittät aufgerundet werden.
Bsp.: von 0 bis 512 soll stehen=> 512 MB
Problem ist, dass in die Zellen, die Zahlen noch das Bezeichung MB haben.
Wie kann ich mit VBA die Spalte einordnen, also aufrunden auf die Zahlen, zb.
512 MB
1024 MB
2048 MB
usw...
Also mit der Quellcode hat es leider nicht funktiniert :(
Sub HaputspeichFormatierung()
' CPU_Geschwindkeit_Ersätzen Makro
' 561-562-563-564-565=566 331-332=333
AbisZ = Sheets(1).Range("I2").End(xlDown).Row
For i = 1 To AbisZ
W = Sheets(1).Cells(i, 9).Value
'Wr = Int(W + 0.1)
Select Case W
Case 0 To 514
Sheets(1).Cells(i, 9).Value = 512
Case 501 To 1024
Sheets(1).Cells(i, 9).Value = 1024
End Select
Next
End Sub