|
Hi
Danke für deine Antwort. Ich hab mir jetzt was geschrieben welches die Zellen rundet:
Sub Komma()
Dim i As Integer
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)
Next i
End Sub
Habe aber ein neues Problem bzw. Frage:
Ist es möglich einer Variablen einen formatierten Wert zuzuweisen? Also ich habe eine Liste mit Zeiten im Format [h]:mm. Jetzt möchte ich einer Variablen die formatierte Zahl zuweisen. D.h. sie soll die formatierte Zahl auslesen und nicht das was tatsächlich in der Zelle steht.
Beispiel: unformatiert steht: 01.01.1900 09:25:12
Formatiert nach [h]:mm steht: 33:25
Ich möchte, dass die Variable nun auf die 33:25 zugreift.
|