Ich habe diesen VBA Code hier gefunden. Er geht bestens, je doch benötige ich diesen Code auf mehreren Spalten...also Spalte 3 (C) bis Spalte 24 (Z).
Kann mir hier wer helfen, was ich eingeben muß um dies zu ermöglichen.
Danke
chris
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 3 Then Exit Sub ' 1=Spalte A, 2=Spalte B usw.
With Target
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
Application.EnableEvents = False
.Value = Format(.Value, "00:00")
Application.EnableEvents = True
End If
End With
End Sub