Ich habe folgende VBA-Vorlage gefunden, mit der ich in Excel ohne ":" Uhrzeiten eingeben kann:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabe As Variant
On Error GoTo ErrorHandler
If Not Intersect(Target, Columns(1)) Is Nothing Then
Application.EnableEvents = False
With Target
.Value = CDate(Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2))
.NumberFormat = "[hh]:mm"
End With
End If
ErrorHandler:
Application.EnableEvents = True
End Sub
Wenn ich hinter Columns weitere Spalten in Klammern eingebe, funktioniert der Sub nicht mehr.Kannmir jemand sagen, warum und wie ich das ändern kann?
Vielen Dank schon einmal vorab.