warum
06.12.2007 20:00:00
klaro
warum will dieses Makro nicht
In A1 kommen immer neue Zahlen rein
und ich will das diese Zahlen ein kleinen
Filter durchlaufen und gute in A2 abgelegt
werden
mfg
klaro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim wert As Single
wert = Abs(Range("A1") - Range("A2"))
If wert