in Excel 2000 wird beim Einfügen von Zellen kein Ereignis ausgelöst.
Gibt es trotzdem eine Möglichkeit das einfügen von Zellen zu überwachen und
wenn ja, wie?
Grüße Holger
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