|
< Wenn ich jetzt in Excel mit der Maus auf B10 klicke und die Maus nach unten ziehe
WENN, du also eine Zelle oder Bereich selekiert hast, dann ein Makro starten
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Option Explicit
Sub TestIt()
Nachklickstarten Selection
End Sub
Private Sub Nachklickstarten(myRng As Range)
If Intersect(Columns(2).Resize(Rows.Count - 9, 2).Offset(9), myRng) Is Nothing _
Or myRng.Columns.Count > 1 Then Exit Sub
Dim Arr(), x
Arr = myRng.Resize(, 2)
For x = 1 To UBound(Arr, 1)
If Arr(x, 1) < 2000 Then Arr(x, 2) = (Arr(x, 1) - 2000) * -1
Next x
myRng.Resize(, 2) = Arr
End Sub
|
ODER automatisch
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Columns(2).Resize(Rows.Count - 9, 2).Offset(9), Target) Is Nothing _
Or Target.Columns.Count > 1 Then Exit Sub
Dim Arr(), x
Arr = Target.Resize(, 2)
For x = 1 To UBound(Arr, 1)
If Arr(x, 1) < 2000 Then Arr(x, 2) = (Arr(x, 1) - 2000) * -1
Next x
Target.Resize(, 2) = Arr
End Sub
|
NUR, wenn in Spalte "B" schon Formeln statt Werte stehen, dann muss ich nachbessern
LG
|