Jede Xte Zeile schützen

[stonemaus]

Hallo liebe Excel Profis

Ihr habt mir mal bei meinem Problem jede Xte Zeile zu schützen geholfen.
Nun habe ich nochmal das selbe Thema, aber es sollte nur im Bereich zwischen Zeile 127 und Zeile 820 funktionieren.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Row > 99 Then
   If Target.Row Mod 8 = 4 Then Range("A1").Select
 End If
End Sub

Vielen Dank schon mal im Voraus

Peter

[Matthias84]

Hallo,

dann musst du einfach nur die IF-Bedingung anpassen:

Code:

If Target.Row > 127 and Target.Row < 820 Then

[stonemaus]

Hallo Matthias

Vielen Dank für die super Antwort :19: 

Gruß Peter