Target. ?
31.08.2004 14:48:16
Katja
Ich habe folgendes Problem: Wenn in einer Zelle etwas geändert wird, soll das Programm Sub Test in Module2 aufgerufen werden. Wenn ich aber den Inhalt der Zelle lösche, soll nichts passieren. Soweit funktioniert es. Wenn ich nun aber einige Zellen markiere und lösche, erscheint die Fehlermeldung "Type mismatch". Was muss ich hinter Target schreiben, damit es funktioniert?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
Application.EnableEvents = False
Module2.Sub Test Target.Address
Application.EnableEvents = True
End Sub
Danke für eure Hilfe!
Gruss Katja
Anzeige