Thema Datum  Von Nutzer Rating
Antwort
Rot relative Auswahl
02.05.2023 15:41:32 Daniel
NotSolved
02.05.2023 16:11:47 ralf_b
NotSolved
02.05.2023 17:33:29 Daniel
NotSolved
02.05.2023 19:58:30 ralf_b
NotSolved
02.05.2023 20:13:40 Daniel
NotSolved
02.05.2023 21:08:34 ralf_b
NotSolved
02.05.2023 21:28:40 Daniel
NotSolved

Ansicht des Beitrags:
Von:
Daniel
Datum:
02.05.2023 15:41:32
Views:
668
Rating: Antwort:
  Ja
Thema:
relative Auswahl

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot relative Auswahl
02.05.2023 15:41:32 Daniel
NotSolved
02.05.2023 16:11:47 ralf_b
NotSolved
02.05.2023 17:33:29 Daniel
NotSolved
02.05.2023 19:58:30 ralf_b
NotSolved
02.05.2023 20:13:40 Daniel
NotSolved
02.05.2023 21:08:34 ralf_b
NotSolved
02.05.2023 21:28:40 Daniel
NotSolved