Aus Zeit Textformat machen
03.12.2012 15:09:14
Tobias
Ich habe eine kurze Frage. Wäre super nett, wenn mir jemand helfen könnte.
In Spalte 1 stehen Sekundenwerte die in Spalte2 aufsummiert werden.
Spalte 1:
00:05
00:01
Spalte 2:
00:00
00:05
00:06
Jetzt will ich, wenn ich ein x in eine Spalte3 setze, sich die Zelle in der gleichen Zeile in Spalte 1 blau färbt und weiterhin nicht mehr in die Berechung einfließt. Der Wert soll aber noch in der Zelle stehen.
Am einfachsten dachte ich mir geht das, wenn ich einfach das Format in Spalte 1 ändere in Text, dann summiert der das ja nicht mit.
ABER...
Sub test()
With Worksheets("Tabelle1")
ende = .Cells(Rows.Count, 1).End(xlUp).Row
Set Bereich = .Range(.Cells(1, 3), .Cells(ende, 3))
For Each Zelle In Bereich
If Zelle.Value = "x" Then
Zelle.Offset(0, -2).Interior.ColorIndex = 3
Zelle.offset(0,-2).NumberFormat = "@"
End If
Next Zelle
application.Calculation = xlCalculationAutomatic
End Sub
wirft mir eine ewig lange Kommazahl aus anstatt aus 00:05 ein "00:05" zu machen. Hat jemand einen Tip?VG
Tobi