Noch eine Frage
02.05.2003 15:49:50
Uwe
Eine Frage wenn ich das bis zu Zelle 50 machen will geht das
nur so ? oder auch einfacher ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "L7" Or Target.Address(0, 0) = "N7" Then
Application.EnableEvents = False
Range("K7") = Range("K7") + Target
Application.EnableEvents = True
End If
If Target.Address(0, 0) = "L8" Or Target.Address(0, 0) = "N8" Then
Application.EnableEvents = False
Range("K8") = Range("K8") + Target
Application.EnableEvents = True
End If
If Target.Address(0, 0) = "L9" Or Target.Address(0, 0) = "N9" Then
Application.EnableEvents = False
Range("K9") = Range("K9") + Target
Application.EnableEvents = True
End If
End Sub
Gruß Uwe
Anzeige