Hilfe beim abändern eines Makros
Josef_T
das untenstehende Makro arbeitet einwandfrei. Mein Problem ist, dass das Makro aber erst ab Zeile 10
seine Arbeit aufnehmen soll. Was muß ich dafür wie abändern?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intz1 As Integer
intz1 = Target.Cells.Row
With Me
If .Cells(intz1, 10).Value (größer/kleiner) 0 Then .Cells(intz1, 11).Value = _
.Cells(intz1, 11).Value + .Cells(intz1, 10).Value: .Cells(intz1, 10).Value = ""
End With
End Sub
Danke schon mal
Gruß
Josef
Anzeige