Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$A$10" Then Exit Sub
Range("A1") = Range("A1") + 1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$A$10" Then Exit Sub
Range("A1") = Range("A1") + 1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A8:A250")) Is Nothing Then Exit Sub
Target.Offset(, 1) = Target.Offset(, 1) + 1
End Sub
Gruß
Dierk
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies *
'* 11.05.09 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://Hajo-Excel.de/
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B8:B250")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If RaBereich Is Nothing Then Exit Sub
Range("A1") = Range("A1") + RaBereich.Count
Set RaBereich = Nothing
End Sub