AW: Event für Zeile einfügen
10.05.2006 09:47:38
WernerB.
Hallo maiz,
den nachstehenden Code habe ich mal in einem Forum (vermutlich hier) gefunden; vielleicht kannst Du ihn verwenden.
Ergehört in das Modul des entsprechenden Tabellenblattes.
Option Explicit
Dim tRng As Range, _
oRng As String, _
tRow As Long
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 gelöscht! " & oRng
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set tRng = ActiveCell
oRng = Selection.Address(0, 0)
tRow = tRng.Row
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !