Makro arbeitet nicht
12.02.2004 11:07:25
Annette
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
If (Target.Address = "$F$20" Or Target.Address = "$F$21") _
And Trim(Target.Text) <> "" And Not IsError(Cells(15, 6).Value) Then
With Worksheets("Artikelliste")
If .FilterMode Then .ShowAllData
Set myRange = .Columns(1).Find(What:=Cells(5, 5).Value, LookAt:=xlWhole, LookIn:=xlValues)
If Target.Row = 20 Then .Cells(myRange.Row, 9).Value = .Cells(myRange.Row, 9).Value - Target.Value Else: .Cells(myRange.Row, 9).Value = .Cells(myRange.Row, 9).Value + Target.Value
End With
Else
If Target.Address = "$E$5" Then
Application.EnableEvents = False
Cells(20, 6).Value = 0
Cells(21, 6).Value = 0
Application.EnableEvents = True
End If
End If
End Sub
wie kann ich es ändern damit es unter 97 läuft?
tausend mal danke
annette