Zeiteingabe fuer PeterW
26.10.2002 10:45:09
Hary
Sub InZeit()
Dim rng As Range
Dim stxt As String
For Each rng In Selection.Cells
stxt = rng.Value
rng.NumberFormat = "hh:mm"
Range("b1:c5").Select Hier habe ich zb. den Bereich zugewiesen'
Select Case Len(stxt)
Case 1
rng.Value = TimeSerial(0, Right(stxt, 1), 0)
Case 2
rng.Value = TimeSerial(0, Right(stxt, 2), 0)
Case 3
rng.Value = TimeSerial(Left(stxt, 1), Right(stxt, 2), 0)
Case 4
rng.Value = TimeSerial(Left(stxt, 2), Right(stxt, 2), 0)
End Select
Next rng
End Sub
Das Makro laeuft . Der einfachheitshalber moechte ich aber das das Makro ausgefuehrt wird sobald ich in die Zelle die Zahl eingeben habe und die verlasse. In VBA bin ich noch Anfaenger aber ich bemuehe mich durch Versuche dahinter zu kommen. Ein paar Sachen klappen auch schon, aber hier ;-(
Gruss
Hary