Intersect
02.10.2002 12:13:08
skyglider
irdendwie habe ich Probleme mit dem Intersect Befehl.
Hab im Archiv schon gesucht, aber nichts passendes gefunden.
Ich möchte ein Makro nur ausführen, wenn eine Zelle in der Spalte J geändert wird. Wenn eine ganze Zeile kopiert und eingefügt wird (also auch die Zelle in Spalte J ) soll nichts geschehen. So siehts bei mir aus:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("J:J")) Is Nothing Then Exit Sub
If Intersect(Target, Range("A:I", "K:ZZ")) Then Exit Sub
Dim fs As Object
.
.
End if
End if
Laufzeitfehler 13 "Typen unverträglich" bekomme ich als Fehlermeldung
Vielleicht hat jemand noch einen anderen Ansatz.
Gruß
skyglider