Sub Uge1()
If D4 = 1 Then
For rep = 36 To 85
Sheets("ark1").Rows(rep & ":" & rep).EntireRow.Hidden = True
Next rep
End Sub
Sub Uge11()
For rep = 46 To 85
Sheets("ark1").Rows(rep & ":" & rep).EntireRow.Hidden = False
Next rep
End Sub
Sub Uge2()
If D4 = 2 Then
For rep = 46 To 85
Sheets("ark1").Rows(rep & ":" & rep).EntireRow.Hidden = True
Next rep
End Sub
Sub Uge12()
If D4 > 2 Then
For rep = 56 To 85
Sheets("ark1").Rows(rep & ":" & rep).EntireRow.Hidden = False
Next rep
End Sub
Sub Uge3()
If D4 = 3 Then
For rep = 56 To 85
Sheets("ark1").Rows(rep & ":" & rep).EntireRow.Hidden = True
Next rep
End Sub
Sub Uge13()
If D4 > 3 Then
For rep = 66 To 85
Sheets("ark1").Rows(rep & ":" & rep).EntireRow.Hidden = False
Next rep
End Sub
Sub Uge4()
If D4 = 4 Then
For rep = 66 To 85
Sheets("ark1").Rows(rep & ":" & rep).EntireRow.Hidden = True
Next rep
End Sub
Sub Uge14()
If D4 > 4 Then
For rep = 76 To 85
Sheets("ark1").Rows(rep & ":" & rep).EntireRow.Hidden = False
Next rep
End Sub
Sub Uge5()
If D4 = 5 Then
For rep = 76 To 85
Sheets("ark1").Rows(rep & ":" & rep).EntireRow.Hidden = True
Next rep
End Sub
Kan ikke helt forstå hvad det er jeg gør galt. Det er meningen af den skal kunne skjule de rækker baseret på om der står 1,2,3,4,5 hvor hvis der står 1 så skal den altså skjule fra række 36:85 og omvendt hvis der står 2 så skal den vise 36:45 igen men skjule fra 46:85 osv.
håber der er nogen der kan være behjælpelige :)