Verständnisproblem
19.06.2006 22:56:09
Emil
ich habe vor einiger Zeit hier im Forum sinngemäß folgenden Code bekommen:
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
Dim z As Range
For Each z In Intersect(sh.UsedRange, Target)
If z.Column = 2 Then
MsgBox "ich bin in spalte 2"
ElseIf z.Column = 13 Then
MsgBox "ich bin in spalte 13"
End If
Next
End Sub
Der Code liegt in "DieseArbeitsmappe". Wenn ich jetzt auf einem Tabellenblatt in Spalte 2 oder in Spalte 13 einen Wert ändere erscheint erwartungsgemäß die entsprechende msgbox.
Wenn ich eine neue Zeile einfüge, erscheinen aber beide msgboxen. Das verstehe ich nicht! Kann mir das jemand erklären?
Gruß Emil