Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Intersect - mehrere Zellbereiche

Intersect - mehrere Zellbereiche
10.10.2002 15:58:53
Frank
Hallo zusammen,

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Intersect - mehrere Zellbereiche
10.10.2002 16:04:07
ANdreas
Hallo Frank,

erweitere den Bereich doch einfach:
Range("C8:D14,G8:H14")

Viel Spaß,
Andreas

Vielen Dank Andreas!
10.10.2002 17:15:48
Frank
...
Anzeige

11 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige