Worksheet-Change zweimal
05.04.2005 12:17:55
Gisela
wie kann ich die beiden Worksheet-Change Ereignisse zu einem zusammenfassen?
Da ich nur Recorder-Kenntnisse habe, stehe ich ratlos vor dem Problem, dass nur ein Ereignis möglich ist.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s%, m%
'Soll nur bei einer Eingabe in Spalte F und G wirksam werden:
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
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim a, t, m, j, ZielBereich As Range
If Target.Count > 1 Then Exit Sub
Set ZielBereich = Application.Intersect(Range("D:E"), Target)
If ZielBereich Is Nothing Then Exit Sub
a = Target.Value
If IsNumeric(a) = False Then Exit Sub
If a < 10000 Or a > 999999 Then Exit Sub
a = Format(a, "000000")
t = Mid$(a, 1, 2)
m = Mid$(a, 3, 2)
j = Mid$(a, 5, 2)
a = DateSerial(j, m, t)
Application.EnableEvents = False
Target.Value = a
Target.NumberFormat = "dd.mm.yy"
Application.EnableEvents = True
End Sub
Vielen Dank für die Hilfe
Grüße
Gisela