Breiche deklarieren
20.05.2009 13:55:42
Michael
bei einer bestimmten bedingung, soll in 'Tablle 2' ein vorher definiertet bereich u.a. Schreibegschützt werden.
....
If gruppe = "Orga" Then
Sheets("tabelle2").Range("d11:g15").Locked = False
Sheets("tabelle2").Range("d11:g15").FormulaHidden = False
Sheets("tabelle2").Range("d11:g15").Interior.ColorIndex = 2 '
...
Jetzt ist das ungünstig, weil ich bei einer Veränderung des Bereiches die werte (in diesem Fall dreimal) ändern muss.
Irgendwie klappt es aber nicht, wenn ich:
.....
dim breich1 as string
breich1 = Sheets("tabelle2").Range("d11:g15")
if gruppe...
bereich1.Locked = False
bereich1.FormulaHidden = False
bereich1.Interior.ColorIndex = 2
....
Was mache ich falsch?
Danke für Eure Mithilfe.
Grüße