Zeiteingabe ohne Doppelpunkt
12.10.2004 11:59:36
Silvie
Bin wieder etwas hilflos. Habe endlich ein Makro gefunden womit ich Uhrzeiten ohne Doppelpunkt eingeben kann, funktioniert auch soweit aber ich möchte den Bereich jetzt eingrenzen, also nicht eine ganze Spalte sondern nur den Bereich "S105:T109". Wie geht das?
Hoffe da kann mir jemand helfen...
Danke!
Silvie
Makro in "dieseArbeitsmappe":
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Target.column 'Range?
Case 4, 5 'soll Bereich S105:T109 sein
Formatierung (Target.Address(False, False))
End Select
End Sub
Sub Formatierung(Zelle)
If ActiveSheet.Name "Frei" Then
Dim s%, m%
With Range(Zelle)
If .Value = "" Then Exit Sub
If IsNumeric(.Value) And InStr(.Value, ":") = 0 And InStr(.Value, ",") = 0 Then
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 If
End Sub