Ich glaube ich habe mich im letzten Beitrag unglücklich ausgedrückt.
Ich möchte in einer Jahresübersicht (20 Zeilen für 20 Mitarbeiter und 365 Spalten für 365 Tage) mittels Makro einzelne Kalenderwochen sperren.
Bislang sperre ich die Wochen so:
Sub Sperren_1()
With ActiveSheet
.Unprotect Password:=2321 ' Blattschutz aufheben
.Range("f7:l29").Locked = True ' alle Zellen sperren
.Range("f4:l4").Interior.ColorIndex = 3 'Zellenhintergrund rot einfärben
.Protect Password:=2321, DrawingObjects:=False ' Blatt schützen
End With
End Sub
Ich möchte das aber mit relativen Bezügen machen, damit ich nicht jedes Jahr 52 Makros anpassen muss. Meine Überlegung war, das ganze zu gestalten, indem ich die Zelle mit der Angabe der Kalenderwoche suchen lasse
Dim finden As Range
Set finden = Range("E4:NF4").Find(what:="1.KW")
und den Bereich darunter auswähle und sperre. Also zwei Zellen unter der Kalenderwoche und dann 22 Zellen runter und 6 Zellen nach rechts. Leider komme ich nicht weiter. Wie kann ich den beschriebenen Bereich auswählen und sperren lassen? Brauche unbedingt Hilfe.
Danke
|