|
< 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
Option Explicit
'
'Code in einem Standardmodul
'
Sub TestIt()
'es wurden Zellen selekiert
Nachklickstarten Selection
End Sub
'
Private Sub Nachklickstarten(myRng As Range)
'nur Spalte "B" ab Zelle 10 abwärts
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
Option Explicit
'
'Event Code im Klassenmodul der Tabelle
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'nur Spalte "B" ab Zelle 10 abwärts
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
|