''================================================================================
''== Autor: K.Rola, mailto: softsmith@web.de ==
''== Erstellt am: 02.10.2003 ==
''== Unterliegt dem Urheberrecht Deutschlands! ==
''== Verwendung ohne jegliche Garantie und Gewährleistung! ==
''== Code getestet unter Windows XP und VBA 6.0 ==
''== Veröffentlichung nur nach Absprache mit dem Autor! ==
Option Explicit
Dim tRow As Long, tRng As Range, oRng As String
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ende
If tRng.Row > tRow Then MsgBox "Zellen eingefügt! " & oRng
Exit Sub
ende:
MsgBox "Zellen entfernt! " & oRng
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set tRng = ActiveCell
oRng = Selection.Address(0, 0)
tRow = tRng.Row
End Sub