Intersect - mehrere Zellbereiche
10.10.2002 15:58:53
Frank
möchte über intersect die Option nutzen, zellen vor Fremdeingriffen zu schützen. Nun habe ich allerdings den Zellbereich C8:D14 und G8:H14 zu schützen.
Den ersteren Bereich war kein Problem mit Hilfe dieses Forums, nur wie kann ich weitere Zellbereiche in diesen Code mit einpflegen?
so sieht mein code aus:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("c8:d14")) Is Nothing Then
Exit Sub
Else
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
Vielleicht habt Ihr eine Antwort darauf...
Danke!!!
Gruß Frank