Hilfe zu Funktionsweise
08.03.2004 07:59:53
Adi
(Thematik gab's z.T. in einem Thread weiter unten bereits)
Gestern erhielt ich freundlicherweise von K.Rola hier im Forum nachfolgenden Code:
---------------------------------------------------
Option Explicit
Dim tRow As Long, tRng As Range
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ende
If tRng.Row > tRow Then MsgBox "Zellen eingefügt!"
Exit Sub
ende:
MsgBox "Zellen entfernt!"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set tRng = ActiveCell
tRow = tRng.Row
End Sub
-------------------------------------------------------------
Klappt, aber ich verstehe die Funktionsweise nicht (ganz)!
Ich muss den Code noch etwas "aufboren" und da wäre es toll, wenn ich auch wüsste, was ich tue ;-)
Die Worksheet_Selection-Routine definiert bei Änderung der Markierung tRng und tRow.
Aber wie kann es denn dann überhaupt in der Worksheet_Change-Routine bei "If tRng.Row > tRow ..." einen Unterschied zwischen tRng.Row und tRow geben?
Hiiiiiiiiiiiiiiiiiiilfe!!!!
Gruss
Adi
Anzeige