habe folgende Codes aus dem Forum kopiert.
Einzeln funktionieren sie einwandfrei.
Bekomme es aber nicht hin, das beide gleichzeitig in einem Tabellenblatt funktionieren.
Kann mir jemand helfen ??
Gruß
Heinrich
'Cursor Bewegung
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 6 And Target.Column <> 7 Then Exit Sub
If Target.Column = 6 Then
ActiveCell.Offset(-1, 1).Select
Else
ActiveCell.Offset(0, -1).Select
End If
End Sub
'Uhrzeit ohne Doppelpunkt eingeben
'Soll nur bei einer Eingabe in Spalte F & G wirksam werden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim s%, m%
If Target.Column <> 6 And Target.Column <> 7 Then Exit Sub
With Cells(Target.Row, Target.Column)
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
.NumberFormat = "[hh]:mm"
If Len(.Value) > 2 Then
s = Left(.Value, Len(.Value) - 2)
m = Right(.Value, 2)
Else
s = .Value
m = 0
End If
.Value = s & ":" & m
End If
End With
End Sub