Vielleicht könntet Ihr mir bitte weiterhelfen...
habe im Herber forum 2 uhrzeitumwandlungsvorlagen gefunden
1)
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim sTxt As String
If Target.Column 1 Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
sTxt = Target.Value
If sTxt Like "#######" Then
Target.NumberFormat = "hh:mm:ss"
Target.Value = TimeSerial( _
Left(sTxt, 2), _
Mid(sTxt, 3, 2), _
Right(sTxt, 2))
Else
Target.NumberFormat = "General"
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub
und
2)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sTxt As String
If Target.Column 6 Then Exit Sub
If IsEmpty(Target) Or Selection.Cells.Count > 1 Then Exit Sub
sTxt = CStr(Target.Value)
Select Case Len(sTxt)
Case 3: sTxt = "0" & sTxt & "00"
Case 4: sTxt = sTxt & "00"
Case 5: sTxt = "0" & sTxt
End Select
sTxt = Left(sTxt, 2) & ":" & Mid(sTxt, 3, 2) & ":" & Right(sTxt, 2)
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Target.Value = TimeValue(sTxt)
Application.EnableEvents = True
Exit Sub
ERRORHANDLER:
ActiveCell.ClearContents
Application.EnableEvents = True
End Sub
beides seien Klassenmodulle - nun hab ich aber leider nicht wirklich Ahnung da richtig vorzugehen.
Ich möchte in der Tabelle 1 die Felder c10-e25 mit dieser Funktion belegen, dass ich keinen Doppelpunkt eingeben muß (wobei ich aber die Sekunden gar nicht möchte)
habe ein klassenmodull (klasse 1) eingefügt und die Daten dort hinkopiert.
jetzt muss ich wohl irgendwie die zellen dazu bringen die klasse 1 zu berücksichtigen...
Bitte könnte mir wer da kurz helfen...
vielen dank im voraus.
CharlyBraun