Vælg ark vol. 2
HejJeg fik denne stump af flinke Store-Morten igår, men jeg kunne godt tænke mig at fortsætte med at vælge i andre rubrikker, f.eks. ved kryds i "D4" vælges kun ark 3 - ved kryds i "D5" vises kun ark 4 - mere så jeg kan se hvordan det kan laves en længere programmerings streng hvor der udelukkes mere end et andet felt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing Then
Application.ScreenUpdating = False
If Target.Value = "x" Then
Range("D3").Value = ""
Worksheets(2).Visible = True
Worksheets(3).Visible = True
Worksheets(4).Visible = False
Else
Worksheets(2).Visible = False
Worksheets(3).Visible = False
Worksheets(4).Visible = False
End If
End If
If Not Intersect(Target, Range("D3")) Is Nothing Then
Application.ScreenUpdating = False
If Target.Value = "x" Then
Range("D2").Value = ""
Worksheets(2).Visible = True
Worksheets(3).Visible = True
Worksheets(4).Visible = True
Else
Worksheets(2).Visible = False
Worksheets(3).Visible = False
Worksheets(4).Visible = False
End If
End If
Application.ScreenUpdating = True
End Sub
