Erkennen ob selection verbundene Zellen sind!
25.08.2006 11:07:08
Martin
Habe den Kopf in der Schlinge, kriege keine Lösung hin.
In einem Tabellenblatt habe ich mit Worksheet_SelectionChange einige Sicherheitsabfragen welche immer geprüft werden müssen.
Damit bei der folgenden Prüfung:
If Not Intersect(Target, Range("U3:U6")) Is Nothing Or _
Not Intersect(Target, Range("W4:W5")) Is Nothing Then
If Target = "" Then
full = False
Else
full = True
End If
end if
kein Fehler gemeldet wird, wollte ich den folgenden Script einfügen:
If Target.Cells.Count > 1 Then
MsgBox "Es kann immer nur eine Zelle gleichzeitig selektiert werden!" & vbLf & _
"Die aktuelle Selektion wird nun zurückgesetzt auf die Zelle" & vbLf & _
"Artikel- Kurznr." & """ITM""" & "!", , "WARNUNG FEHLBEDIENUNG!"
Exit Sub
End If
Es hat nun den Hacken, dass verbundene Zellen existieren und wenn diese durch diese Prüfung gehen, wird es als Fehler gemeldet und ebenfalls abgebrochen.
Wie kann ich eine Prüfung machen damit das "Not Intersect" nicht auf Fehler läuft wenn mehrere Zellen selektiert werden?
Bin zur Hoffnung verbannt, dass Ihr eine Lösung habt.
Mit freundlichen Grüssen
Martin