ab Excel 2002 löst das Einfügen von Zellen das Change-Ereignís aus, nicht so in
E 2000.
Kennt jemand ein workaround?
Grüße Dieter
''================================================================================
''== 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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen