Hallo,
ich bin leider eine absoulte Leie in VBA. Ich hab hier eine kleine Formel:
If Not Intersect(Target, Range("B7:G8", "J7:O8")) Is Nothing Then
Application.EnableEvents = False
Target.Value = Target.Value * Range("H2").Value
Application.EnableEvents = True
End If
Diese funktioniert auch wunderbar.
Nun muss ich etwas ändern und benötige in einem Datenblatt eine geänderte Formel:
B7-G8 sollen auf H2 greifen; J7-O8 sollen auf P2 greifen.
If Not Intersect(Target, Range("B7:G8") Is Nothing then
Application.EnableEvents = False
Target.Value = Target.Value * Range("H2").Value
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("J7:O8")) Is Nothing Then
Application.EnableEvents = False
Target.Value = Target.Value * Range("P2").Value
Application.EnableEvents = True
End If
End Sub
Leider funktioniert anschließend nichts mehr.
Kann mir jemand helfen, bzw. sagen, was an der Formel falsch ist / geändert werden muss.
Vielen Dank im Voraus!
Siauska
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
|