Worksheet_Change
23.11.2005 13:09:09
Eve
Schon wieder ich.
Habe diese Code von Luc bekomen und ein bit geändert.
Wenn in die range A5:L100 was geändert wird, muss die
Version number in Zelle L1 erhöht werden mit 0.1.
So, das funktioniert ganz gut, aber ich will das
nicht wenn ich eine Word in Zelle schreibe und in
eine andere Zelle auch was mache, das dann die Version number
schon zwei mal erhöht wurde. Es darf nur eine mal erhöhen solang
die file offen ist.
Ich weiss nicht kann man das machen, damit die Version nur
einmal erhöht wird, egal wievil ich muss ändern.
Die grund ist das an diese File nur wenig muss geändert werden,
meisstens macht man nur auf und schaut die nächsten Termins an.
Und ich kann so sehen, ob wer hat eine neue Termin rein geschrieben,
indem die Version um 0.1 grösser ist.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Double
Const Faktor = "0.1"
i = Range("L1").Value
i = i + Faktor
Application.EnableEvents = False
If Target.Row > 4 And Target.Row < 101 And Target.Column < 13 Then
ActiveSheet.Range("L1").Value = i
End If
Application.EnableEvents = True
End Sub
Danke für die hilfe
regards Eve
Anzeige