Change-Ereignis Typenkonflikt
27.12.2005 14:07:42
Reto
Ich habe ein Change-Ereignis geschrieben, welches verschiedene Aktionen ausführt wen die Spalte R verlassen wird. Ich habe das mit Column gemacht. Es funktioniert eingentlich auch. Das problem ist nur, wenn mehere Zeilen in dieser Spalte selektiert und gelöscht werden, kommt eine Typenunverträglichkeitsmeldung.
Wie könnte ich dies verbessern?
-------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim found As Range
If Target.Column = 18 And Target.Value = "" Then <-- hier Problem :)
Exit Sub
End If
If Target.Column = 18 And Target.Value <> "" Then
Set found = ActiveSheet.Range("G9:G3000").Find(Target.Value, lookat:=xlWhole)
If found Is Nothing Then
MsgBox ("Gegenartikelnummer ist nicht vorhanden!?!" & Chr(10) _
& "" & Chr(10) & "ACHTUNG: Gegenartikelnummer wird gelöscht!")
With Range("R" & Target.Row)
.Select
.Value = ""
End With
Else
If found.Offset(0, 11).Value <> "" Then
MsgBox ("Für den Gegenartikel existiert bereits eine Verwechslung!" & Chr(10) _
& "" & Chr(10) & "ACHTUNG: Gegenartikelnummer und Verwechslungsmenge werden gelöscht!")
With Range("Q" & Target.Row & ":R" & Target.Row)
.Select
.Clear
End With
Else
Exit Sub
End If
End If
End If
End Sub
------
Besten Dank
Reto E.